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COMPUTER CONTROLLED PAGING AND TELEPHONE 
COMMUNICATION SYSTEM AND METHOD 



(Y»«fi Reference ho Relate Applications 



This application is related to the Intelligent 
Telephone Control System disclosed in U.S. Patent 
Application 08/354,200 of Robert M. Fuller et al as 
inventors and which is assigned to the applicant herein 
(the assignee in the United States) . The aforementioned 
U.S. Patent Application No. 08/354,200 is hereby 
incorporated herein by reference. 

Technica l Field 

^ The present invention relates to a computer 
controlled signaling and telephone communication system 
and method for notifying a subscriber, of a telephone 
call placed by a caller to the subscriber. 

pagkornimd of the Invention 

Telephone systems are well known and, indeed, a 
number of techniques are known in the prior art to 
facilitate connecting a caller (i.e. the party initially 
placing the telephone call) with a telephone subscriber 
(i.e. the party whom the caller is trying to contact by 
telephone). Of course, a very well known way to 
accomplish this end is to have a telephone ring at a 
subscriber's presumed location. 
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not necessarily stay put at their desk. They need to 
interface with other people in their office, and 
therefore, discussions may be held in offices other than 
their own or in conference rooms and; of course, they 
may leave the office to go to lunch, the bathroom or run 
errands. Some subscribers have a tendency to use the 
^?Aqr^^^| ! ie.at T mi^ Tr _8ystem. ..a^^ea-t deal -of tim*— WKlle" 
it is possible with current telephone systems to switch 
the *meet-me* service on and off, . it does require that a 
subscriber input certain codes at a telephone to switch 
off the *meet-me* service and then key in certain codes 
at a telephone to turn the *meet-me- service back on. If 
the subscriber uses the -meet-me" system in the manner 
described, they are supposed to telephone the system to 
turn off the meet me mode whenever they arrive at the 
office and turn it back on whenever they leave the 
V^fice. That might work well in theory, but it does not 
work well in practice because people forget to switch 
their telephone service, either when leaving the office 
or returning to the office; or alternatively, they will 
leave their telephones in the *meet-me" mode 100% of the 
time . 

A problem which arises when a subscriber uses the 
"meet-me" mode is that it takes a relatively long time 
for a caller to make telephone contact with the 
subscriber, since even if they are sitting at their 
desk, the "meet-me" system first pages them, requiring 
them to pick up their telephone and input certain 
numbers in order to gain access to a telephone switch 
where they eventually meet their caller. A telephone 
call which might otherwise take only 15 or 20 seconds to 
complete, can take thrpo r>y- fwir t- ■; Tn Qc . = t . _i ^i — 
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It is, therefore, one object of the present 
invention to provide and improve this *meet-me- service. 
With the improved *meet-me" service described herein, a 
telephone subscriber may keep his or her telephone in a 
"meet-me* mode most of the time, but the system, in 
addition to paging the subscriber, _also places a 
telephone _call_f rom the_caller_jt.o_ one or. ,more-~expeofeed 
locations. Moreover, even if the . paging feature is not 
utilized, it can be very advantageous to be able to try 
to contact the subscriber at a plurality of locations at 
more or less the same time automatically. For example, a 
telephone call placed to a subscriber can be redirected 
as a plurality of calls placed more or less 
15 simultaneously to the subscriber's home, car telephone 
and office (for example) . The caller can be connected to 
whoever answers these calls, while the other unanswered 
X^alls continue to ring. If the paging feature is 
utilized, then the subscriber can respond to a page by 
20 calling into the system and be connected to the caller 
regardless of whether any of the plurality of calls were 
answered . 

The present invention provides a system and a 
25 method whereby an incoming telephone call is handled by 
a telephone system controller. The controller is 
preferably a programmed device, much like a computer (in 
fact in the preferred embodiment it is a computer which 
has been adapted in certain ways to enable it to 
30 communicate with the Public Switched Telephone Network 
(PSTN) ) . The controller initiates a plurality of 
contemporaneous communications seeking the subscriber. 
This plurality of contemporaneous communications may 
include a plurality of independent telephone calls to 
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different destinations or at least one such telephone 
call and a contemporaneous page. 

Another problem which prior art telephone systems 
5 have relates to allowing the subscriber to monitor a 
telephone call thereby giving the subscriber the 
^pppQirtjitf^ incoming^call .. or—to- xtHow— fche- 



caller to be handled by an answering machine. Indeed, 
modern answering machines allow the user to listen to 

10 (i-e. monitor) an incoming call in order to decide 
whether to answer the call immediately or to allow the 
answering machine to complete its task. As is well 
known, however , telephone subscribers are apt to receive 
more than one telephone call at a time, but conventional 

15 answering machines can only deal with a single call at a 
time (unless the cost of a second telephone line and a 
ra\lti-line answering machine are borne). Several 
technologies have been developed to provide smoother 
telephone services which enable a subscriber to deal 

20 with an incoming telephone call if they happen to be on 
the line with another party at the time a, telephone call 
is received. The *Call Waiting* service offered by many 
telephone companies allows a caller to receive a second 
telephone call after having answered a first telephone 

25 call. Telephone companies have also offered voice mail 
services to their subscribers. However, those services 
do not allow a subscriber to monitor an incoming call 
like a telephone answering machine does, but those 
service do have the advantage of being able to take a 

30 message from more than one caller at the same time or to 
take a message while the subscriber is engaged with 
another party on the telephone. As a result, these 
f.prhnolooies (conventional answprinn Tn«oViino<= *r»H 
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competed with each other since they each provide service 
needs which the other cannot provide. 

In addition to or complimentary to the improved 
*meet-me- system mentioned above, the present invention 
provides a voice mail system to which an incoming call 
may be directed. The incoming caller.may be routed to 
the voice jnai^system .af .ter^havijig., been 
processed by the system in a manner which will be 
described in greater detail below. The subscriber can 
then connect to the voice mail system in a "monitoring 
mode" which allows the subscriber to overhear the 
message being left by the calling party for the 
subscriber. If they wish, the subscriber may barge into 
15 the telephone call so that they may speak with the 
calling party, after having preferably given the calling 
party notice that the subscriber is barging in. The 
\subscriber may barge in from a telephone instrument 
which is called by the system or after the subscriber 
has telephoned into the system, for example, in response 
to a page. 



20 



These and other features of the invention will 
become even more clear upon reading the following 
25 detailed description in conjunction with the attached 
drawings . 

Brief Description of the Drawings 



30 



Figure 1 is a diagram of a system of the type which 
may be used to embody the present invention; 



Figure 2 is a flow diagram showing the processing 
capabilities of the call processing facilitv of the 
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system of Figure 1; 

Figure 3 shows how the system interacts with 
callers, subscribers and other persons; 

5 

Figures 4a - 4k provide a detailed flow diagram of 
- — ^u^pr^eferx^e^ of the —indention ——the — f -low- 

diagram includes a Main Task in Figure 4a, an Inbound 
Task in Figures 4b and 4b (1) - 4b (7), a Paging Task in 
10 Figure 4c, a Barger Disconnect Task in Figure 4d, a 
Forward Leg Task in Figures 4e(l) - 4e(4), a Forward Leg 
Disconnect Task in Figure 4f, a Voice Mail Task in 
Figure' 4g, a Voice Mail Disconnect Task in Figure 4h, a 
Caller Disconnect Task in Figure 4i, a Timer Task in 
15 Figure 4j and a Record Task in Figure 4k; 

\^ Figure 5 is a schematic diagram of a hardware 
environment for the system which connects with one type 
of telephone company circuits; 

20 

Figure 6 is a schematic diagram of a hardware 
environment for the system which. connects with telephone 
company T-l type circuits. 

25 Brief Description of the Appendices 

Appendix I is a source code listing of the Main 
Program written in VOS (Voice Operating System) . 

30 Appendix II is a source code listing of an Inbound 

Task used by the Main Program. 
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Appendix IV is a source code listing of a Page Task 
used by the Main Program. 

Appendix V is a source code listing of a Voice Mail 
Task used by the Main Program. 

^.Appendix ^ V I , ; is ^a^^ixrc^^ode-.^-s^tt^us^d^^ 
Inbound Task for phone number playback. 

Appendix VII is a subroutine listing defining 
constants and variables used by all Tasks. 

Appendix VIII is a subroutine listing defining 
constants used by the Dianatel hardware switch of the 
preferred embodiment of the present invention. 

^. Appendix IX is a subroutine listing used for 
conferencing by all Tasks other than the Main Program. 

Appendix X is a listing of ASCI text files which 
define various VOS user setup parameters.. 



Detailed D escript. i on 

Overview 

Figure 1 illustrates, in block diagram form, a 
Telephone Control System that may be used to enhance the 
accessibility of it's subscribers to callers. As is 
shown, the Telephone Control System 40 connects with the 
PSTN 50 via facilities 51. The Telephone Control System 
40 may control a switch 54, causina if. t-o ^r^rrt: 
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incoming and outgoing telephone circuit, e.g., trunks or 
lines 51. 

In an alternate embodiment, the switch 54 is 
actually part of the PSTN 50. In this embodiment, the 
5 facilities 51 must be capable of transmitting switch 
control signals from the Telephone Control System 50 to 

— — .the »swit ch^ 54 ^ An- example of this— .type- of . facility— is— a- 
CENTREX line, which allows the transmission of switch 
control signals in the form of ^feookswitch flashes x and 

10 touch tones to initiate call-conf erencing, call- 
transfer, barge-in, speed-dialing, plus all other 
CENTREX functions controlled by this method. A variation 
of the CENTREX facility is a CENTREX two-way DID trunk, 
which not only has the x hookflaslT capability, but also 

15 provides the called number in the form of Direct- Inward- 
Dialing digits. This is one form of facility 51. Another 
variation of the CENTREX facility provides the called 
number via a separate data-link known as Simplified 
Message Desk Interface (SMDI) . Other facility type are 

20 ISDN primary rate or ISDN basic rate interfaces which 
provide all of these capabilities plus many other in 
addition to two voice compatible channels and a packet 
channel. 

25 In the preferred embodiment, the switch 54 is part 

of the Telephone Control System 40. In this embodiment, 
the facilities 51 need only include standard DID trunks 
for the incoming calls, and standard outgoing trunks. 
The control system 40 controls switch 54 directly, 

30 causing it to connect paths between various incoming and 
outgoing trunks as required. 
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phone lines 52, for purposes of communicating with the 
Paging System 60. The Paging System may be any of the 
commonly known paging systems such as those comprised of 
transmitters such as Motorola's PACE or Quintron model 
5 QT250B and paging terminals such as Glenayre model 
GL3000XL or BBL System 3, which send encoded messages 
via radio frequency to cause a unique - pager , or beeper, 
worthy a pagiQg_system -subsc-r-iber^-to -sound— an-alert," 1 
produce a message in a display, activate a light, 
10 vibrate, or produce any of a variety of other alerting 
mechanisms. Typically, these paging systems will cause a 
pager to be alerted in response to another individual 
dialing a phone number which corresponds to that 
individual's pager. This phone number may be routed via 
15 the PSTN 50 to a paging system 60 (unless the paging 
terminal is directly coupled to system 40), which paging 
system 60 in turn determines, typically via DID digits, 
^ho the call is intended for, and then sends a radio 
frequency message to alert that individual's pager. To 
20 cause a subscriber's pager to be activated, the 
Telephone Control System 40 then dials the phone number 
that corresponds to the subscriber's pager. Although not 
described in this preferred embodiment, it is 
anticipated that the Telephone Control System 40 could 
25 also interface to a paging system directly via a 
dedicated data link. 

An additional facility 53 preferably connects the 
Telephone Control System 40 to the PSTN 50. This 
30 facility is a trunk which provides the Automatic Number 
Identification (ANI) of the calling party or the CLID 
(Calling Line IDentif ication) of the calling party. An 
example of such a trunk is the Feature Group D (FGD) 
trunk which is common lv used bv interpxrhanao r**rri *»t-c 
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The interexchange carriers use the AN I information to 
properly bill the calling party. The Telephone Control 
System 40 may use this ANI and/or CLID information to 
differentiate between calling parties and subscribers, 
5 and for other purposes described herein. Although not 
described in the preferred embodiment, it is anticipated 
, yiat _other_ provide — Mis- 
information may also be used for this purpose. An 
example of another type of facility which provides ANI 
10 is a CENTREX line with an SMDI data link, which is now 
available from several types of central offices. The 
SMDI data link is capable of passing both the called 
party number and the calling party number (ANI/CLID) . In 
addition, ISDN primary rate and basic rate interfaces 
15 supply such information. 

\ x To aid in the discussion of the illustrative 
examples which follow, Figure 1 also shows a 
subscriber's home 15, with a home phone 16; a 
20 subscriber's office 17, with an office phone 18; a 
cellular telephone system 19, which interfaces to a 
subscriber's car-phone 20; a factory 21, with a factory 
phone 22; a pay telephone 23; a subscriber 24 with pager 
25; and a caller's telephone 26. A voice mail system 90 
25 is depicted as a stand-alone system. Those skilled in 
the art will appreciate that the voice mail system 90 
may be embodied in telephone control system 40 instead, 
or elsewhere in the overall system. 

30 The illustrative examples which follow are intended 

only to clarify some of the concepts, features, and 
objects of the invention, and do not define the scope of 
the invention. In this embodiment, the aDDarat-us and 



a 
a 
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located, for example, in the central office of 
telephone company. Alternatively, and preferably 
controlled switch 41 is included with the apparatus' of 
the present invention, which, in turn, may be located 
5 either on the premises of the telephone company switch 
. or elsewhere, including the premises of a business which 
make use of the system, in another .embodiment the 
~_J^yeg£i° n is, embodie d in _a^ele P hone^contrcrl^ S y S tw^ 0 
which may be placed upstream .of a private branch 
10 exchange (PBX) having direct inward dialing (DID) 
capabilities. 



in 



20 



Before describing the preferred embodiment 
detail, a general overview of how the invention may be 
15 practiced is first described with reference to the flow 
diagram of Figure 2. This flow diagram is straight 
forward and is intended to give an overview of how the 
^ystem handles telephone calls. A more robust flow 
diagram is set forth in Figures 4a - 4k which shows how 
the preferred embodiment of the system would function in 
a multitasking environment. 

Referring to Figure 2, a call is received at block 
10 and a decision is made at step 12 as to whether or 
not the person placing the call is a subscriber of the 
system or is a caller who is trying to reach a 
subscriber 65 (Figure 1). The location of the subscriber 
may be unknown. The subscriber may be at home 79, at the 
office 77, in their automobile or elsewhere. The 
telephone control system will attempt to use telephone 
system resources to place the subscriber in telephone 
contact with a caller located at a phone 6. 



25 



30 



ers and subscribers can be dif f er*»ni-s in * 
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number of ways. Thus the decision at step 12 can be made 
by various means, including (i) examining the Calling 
Line I.D. (CLID) of the party placing the call to 
determine if the caller is a known subscriber and/or 
5 (ii) examining the Direct Inward Dial (DID) digits 
received from the Public Switched Telephone Network 

- r : f*STN) - .50 (this^ei^ assumes — teha-t- the subscribers 

has one telephone number which he or she uses to contact 
the system and a different telephone number which 

10 callers use to contact the subscriber) and/or (iii) 
whether a special code (i.e. a personal identification 
code or PIN) is input by the person placing and/or 
receiving the call to identify themselves as a 
subscriber. Since the CLID is not always available and 

15 since forcing the subscriber to use a PIN makes the 
marketing of a telephone service more difficult , the 
dUjrrently preferred manner of dealing with this problem 
is technique (ii) mentioned above, namely, one telephone 
number is dedicated to each subscriber for the 

20 subscriber to use when calling the system to pick up 
messages or, in the context of the present invention, to 
meet a calling party who has called the system trying to 
contact them, and a second telephone number is dedicated 
to each subscriber for callers to use when calling the 

25 subscriber via the system. In any event, it is 
contemplated that incoming calls can be differentiated 
between subscribers of the system and callers (who are 
trying to contact subscribers) . 

30 Assuming that a caller is on the line trying to 

reach a subscriber, a test is preferably made at step 14 
to determine whether or not the subscriber is already 
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or not the particular hardware which is utilized will 
support the making of such a test and whether the 
additional complexity of including this test is deemed 
to be worthwhile. It is believed that this test should 
preferably be performed. If the subscriber is already 
available on the system at the time the caller calls, 
the processing branches to block 16 where a telephone 
,il®Sp^ ion ^-^M^^^d^hQtvte^^e caller.™and-"the- 
subscriber. The subscriber may already be on the system 
if, for example, the system includes a voice mail system 
and therefore the subscriber may already be on the 
system at the time the caller calls for the purpose of 
picking up his or her voice mail messages. Alternatively 
the subscriber may be engaged in a conversation with 
15 another caller. In that case, when the new caller 
reaches the system, call waiting treatment is preferably 
applied to the subscriber's circuit. 



10 



25 



At block 16, when a telephone meeting is 
20 established, that means that a connection is made 
between the subscriber who has dialed the system on one 
line with a caller who has also dialed , the system on a 
different telephone line. However, the connection can be 
either a full duplex connection (in which case both 
parties can speak with each other) or it can only be a 
half duplex connection (in which case the subscriber can 
listen to what the caller says, but cannot speak with 
the caller) . This half duplex mode is used if the 
subscriber wishes to monitor the call before making a 
decision to speak with the calling party. Typically, the 
calling party might be conveyed to a voice mail system 
where the subscriber can "eavesdrop* on the message 
which the calling party is leaving for the subscriber. 
Then, if desired, the subscriber can sicm»l t-^« cret-^Tn 
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to switch to full duplex communication after the system 
has preferably first advised the calling party that the 
subscriber is entering the conversation. The voice mail 
system 90 is preferably set up to pause when the 
5 subscriber barges in, so that recording then stops. 
However, the voice mail system 90 may also be designed 
~to ' aTlovr i~t""W^ monitTor f a code wliich would~^cause is" 
to resume recording. This would be convenient for the 
parties if they had some particularly good ideas which 
10 they would like to record and conventional note- taking 
pads are either unavailable or inconvenient to use (such 
as when driving an automobile) . 

If the subscriber is not available at step 14, or 

15 if that test is not made, the call processing falls 
through to block 18 where a page is placed to the 
subscriber. The page may be via a conventional radio 
Comm un ication paging system 60 to a device 61 which 
signals the subscriber by making beeping sounds, or 

20 vibrating, or otherwise signaling the subscriber that 
they are being paged. Alternatively, the page may be by 
other means, including a computer generated audible 
voice page delivered in a suite of offices or rooms 70 
by means of speakers 71 advising a party that they have 

25 a call. Such a page can be delivered directly to 
speakers built into many telephones and a subscriber, 
after being so paged, can go directly to the nearest 
telephone, call the system (if needed) , enter a PIN code 
and be connected to the calling party. Some means of 

30 signaling the subscriber that they have a call is 
provided, so that they know to access the system and 
make a connection with the caller. 



WO 96/09731 



16 



PCTAJS95/12318 



a call to a telephone where the subscriber 65 is 
expected to be located, for example, to phone 76 at 
office 77 or a phone 72 in a room 70 in a building. This 
call may be placed via a PBX to a telephone in the 
subscriber's office or may be placed via the PSTN 50 
directly to a telephone 76 on the subscriber's desk, or 
to another telephone where the subscriber is expected to 
^....located, f or exajn pl^ 



automobile, phone 78 at the subscriber's home 79, phone 
75 at factory 74, or to a phone on their person, or 
wherever the system expects to locate the subscriber. 
The telephone number of the subscriber's expected 
location(s) is (are) stored in a memory in the control 
system 40 and indeed, may be based upon a schedule which 
tracks the normal movements of the subscriber throughout 
the day. The schedule may include a -Do Not Disturb" 
mode in which they would not be paged nor would the 
^ystem try to contact them directly, but rather, the 
caller would be connected directly to a voice mail box 
3 0 of the subscriber. As will be discussed with 
reference to the preferred embodiment, the system can 
also make more than one call seeking^ the subscriber 
and/or to connect the calling party with the voice mail 
system 90. Such calls can be made simultaneously or 
sequentially. In the preferred embodiment, the voice 
mail system is available at a telephone number which is 
contacted either sequentially, that is, after the other 
forward leg call(s) are made or concurrently, if the 
subscriber wants to be able to monitor the incoming call 
(in which case the incoming call is preferably to be 
directed to voice mail so that the subscriber can listen 
to the caller's voice). Alternatively to contacting a 
voice mail system, the telephone number of the 
subscriber's secretary, for example, mav Ho cf„^ in 
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the system so that when the system fails in making a 
connection with the subscriber within a predetermined 
time period, the inbound call then would be directed to 
the subscriber's secretary (for example) instead of to 
voice mail. 

^In, ,add4^Qii — t_o« placing the^ p age-, . and -placing — the— 

telephone call, the caller is preferably informed that 
normal call processing is occurring. This may be done by 
(i) allowing the caller to listen to the sounds 
generated by the PSTN (or local PBX) while the call is 
being placed to where the subscriber is expected to be 
located, or (ii) simulating telephone ringback sounds, 
or (iii) generating a voice indicating to the caller 
that the caller has reached the telephone line of the 
subscriber and the subscriber is being paged to a 
telephone, or (iv) allowing the caller to interact with 
the voice mail system 90 if the subscriber wants either 
to be able to monitor the call or wishes not to be 
disturbed, or (v) playing music, or any combination of 
the forgoing, starting at step 22. Typically a timer 
would also be set for the subscriber to either answer 
their phone or to answer their page and telephone the 
system, but that timer is not needed if the caller is 
sent directly to voice mail. 

A test is made at step 24 to determine whether or 
not the subscriber has answered the page and telephoned 
the system. The subscriber may use any telephone 
interconnected to the system to respond to the page, 
including a pay telephone 72 on the street. If the 
subscriber has answered the page and telephoned the 
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processing falls through to another test at step 26 to 
determine whether or not the telephone number(s), which 
was (were) called at step 20, has (have) been answered 
(the voice mail number need not necessarily be tested 
for this purpose - the purpose here is to see if a human 
has answered the phone, and, if so, to give the human 
certain options), if desired, a message .may be played 

an incoming call, and thus giv.ing the answeree the 
opportunity to receive the call, reject the call, 
monitor the call or transfer the incoming call to 
another network address. At this point the processing 
preferably falls through to step 36. The two steps 
discussed above, namely advising the answeree of the 
call and allowing them to reject it, may not be embodied 
at all or only partially or may be disabled by suitable 
programming so that these additional steps might be 
Utilized in some situations and not in others. For 
example, if the call placed at step 20 is directed to 
the subscriber's telephone at their desk, such 
additional steps may not be warranted. On the other 
hand, when the telephone number which is, called at step 
20 is a telephone number which is not necessarily 
primarily and exclusively associated with the 
subscriber, such as a home telephone number, such 
additional steps might be included so that the answeree 
is advised that an incoming call is for the subscriber, 
giving them the opportunity to accept or reject the 
call. The timer examines how long the caller has been 
waiting for the subscriber to either answer a phone or 
to answer the page, and if the subscriber does not 
respond within a reasonable period of time, the 
processing falls through at step 28 so that the caller 
is then conveyed to a voice mailbox, at block 30. where 
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they would be invited to leave a message for the 
subscriber. Of course, this step is unnecessary if the 
calling party has already been conveyed to voice mail to 
give the subscriber an opportunity to monitor the call. 

5 

Turning now to Box 36, a telephone call has been 
1--.-=— replaced - at — step^ 20 r-^and ^iS^ the t eiephone-^ca 1-1 - hars~ bee n " ^ ^ 
answered, the caller is connected to the person who 
answered the telephone at step 3.6 . This connection may 
10 be a full duplex connection or a half duplex connection 
depending on how the system is programmed for that 
particular subscriber . 

The person answering the telephone can park the 

15 call at step 38, assuming they enter the telephone call 
if the system is set up to allow the party on the 
forward leg to monitor an incoming call. This park 
feature is useful because the person answering the 
telephone may tell the caller that the subscriber will 

20 be with them in a few moments and then place the call on 
park at step 41. As will be seen, in .the embodiment 
disclosed with reference to Figures 4a - 4k, the call 
can be parked merely by placing the answered phone on 
hook. At step 42, a test is made to determine if the 

25 subscriber has , answered the page by phoning into the 
system. If so, a branch is made to block 16 where the 
subscriber is placed into telephone communication with 
the caller, either in full duplex mode or in half duplex 
mode, as previously discussed. The party on the 

30 forwarded leg is preferably also allowed into the 
communication with the subscriber and calling party and 
the subscriber is preferably provided with a mechanism 
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telephoned the system, the processing falls through to 
step 44 where, if the call has been parked, a 
determination is made to see if a park timer has 
expired. If the caller has been parked for more than a 
predetermined amount of time, as indicated by the timer 
the processing will fall through step 44, and the caller 
is directed to the subscriber's voice mail at block 30 
™5f r ^_J*l cal1 ^ c fl3 1 . l leayg r a_voice_mai-l--mes«age: 



subscriber. Of course, this could be a second trip to 
voice -mail. For example, if the forward leg calls placed 
at step 20 are set up in monitoring mode, then the 
calling party is connected to voice mail at that time 
and voice mail is paused once the answeree on the 
forward leg barges into the call, if the answeree 
exchanges some pleasantries with the calling party and 
then parks them in anticipation that the subscriber will 
answer on another forward leg or will telephone the 
^stem in response to the page, the timer may expire 
sending the calling party back to voice mail. 
Alternatively, the calling party may be advised that 
they have the opportunity of transferring to voice mail 
if they tire of waiting for the subscriber, in which 
Case -.. a ^ transf er to voice mail occurs in response to a 
command entered by the calling party. If the voice mail 
system has simply been paused, then it would be 
preferable to restart the voice mail recording process 
previously initiated as opposed to starting a new voice 
mail session. 



When the subscriber answers the page by telephoning 
the system, and the call made at step 20 has also been 
answered, then a three way conference ensues. An 
appropriate warning tone or message can be played so 
that the persons in telephone communication rMli 7 p i-Viat 
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the subscriber is barging into the telephone call. 
Preferably, the subscriber is provided with a means of 
disconnecting the party who answered the call on the 
forward leg to ensure privacy. 

It is to be noted that a test is made at both steps 
24 — and- 42 as- ^feo- ^whether not the subs criber^has" 

answered the page and telephoned the system. Preferably, 
that testing would occur throughout the processing 
described above, and not simply at the places indicated. 
A more robust version of. this system will be described 
with reference to Figures 4a - 4k, which employs 
multitasking so that multiple processes can be performed 
simultaneously. 

Turning now to an incoming call being detected from 
a\ subscriber , a test is made at step 46 to determine 
whether or not a call is waiting, i.e., whether there is 
a caller waiting to be connected to the subscriber. If 
so, the subscriber may be advised that they have a call 
waiting by an appropriate message played before the 
connection is made at step 16. They may also be given 
the choice of entering the connection in monitoring mode 
(i.e., in half duplex mode) or entering the connection 
in full duplex mode) .The subscriber may also be advised, 
at this step, when an additional party enters the 
connection in full duplex mode, such as the party 
answering a phone call made at step 2 0 chooses to 
connect in full duplex mode. 

Qf course, the test made at step 46 need not be 
accomplished if the call meeting process described above 
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they have no call waiting, the processing falls through 
to block 50 where other functions may be performed, such 
as programming the system (for example to change the 
mode of operation, to change forwarding numbers, to 
change a schedule, etc.) or to give access to' the 
subscriber's voice mailbox, etc. The call waiting test 
made at step 46 would preferably be done on a pre- 
z ^P_tive^bjLsis so „ tha4^5ven if^fefee .^al-le r - were^^e h etr- 
voicemailbox and if a call were to come into the system 
from a caller, the subscriber's presence on the system 
would be detected at step 14 and the subscriber would be 
advised that they have call waiting. The subscriber and 
the caller can then be conveyed to a telephone meeting 
at block 16. Preferably, the subscriber would be first 
15 given the opportunity of meeting the call or conveying 
the incoming call directly to voice mail at block 30 in 
the event the subscriber wishes to continue his or her 
ctivities at block 47. 



10 



30 



20 The foregoing description has been in the context 

of implementing the invention in a telephone control 
system 40 of the type depicted in Figure^ 1. 

Turning to Figure 3, this figure shows the system 
25 40 in which the present invention may be implemented and 
how it interacts with callers, subscribers and other 
persons. A call is initiated by a caller 2 who places a 
telephone call, designated by line 3, to system 40. The 
system responds by (1) paging the subscriber and (2) 
attempting to telephone the subscriber. Here the paging 
system is shown at numeral 4 and it is connected to 
system 40 by a communication facility 5 (which may be 
provided by the PSTN or by a dedicated channel) . The 
paging system 4 transmits 
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subscriber who carries a paging device on his or her 
person. The subscriber may telephone the system 40 from 
any telephone 6 interconnected to the system to barge 
into the call with the caller 2. This connection is 
5 called the barge in leg and is designated by the numeral 
7. This leg of the call would typically be made via the 

_ ^-~PSTN-._Jrhe-- system : 3^^addi-tion--^©- causing— a~pag.e.-. to ■roccuf" 
also tries to contact the subscriber at a telephone 8 
having a predefined telephone number. This connection is 

10 called a forwarding leg 9 and it may be made via a PBX 
with which the system 40 cooperates or via the PSTN. The 
system may initiate more than one forwarding leg (as is 
represented here by telephone 8 ' and forwarding leg 9 ' ) 
if it is desired to ring more than one telephone 

15 simultaneously with the placing of the page. For 
example, the system may be programmed to place 
forwarding leg calls to the subscriber desk telephone 
and to their car telephone during normal working hours 
whenever an incoming call arrives in the system 40 from 

20 a caller 2 for the subscriber, in addition to placing a 
page to the subscriber. Once the subscriber is placed in 
telephone contact with the caller any unused legs may be 
then torn down or they may timeout of their own accord. 
When multiple forward leg calls are initiated, the 

25 system preferably produces simulated ring back tones or 
other call progress signals in lieu of providing 
multiple PSTN call processing sounds which may be 
confusing to the caller (for example, if two forward 
legs calls were placed and one number was busy while the 

30 other number was ringing, the sounds produced by the 
PSTN would be rather confusing — to say the least — 
and the calling party should preferably be isolated from 
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If more than one forward leg call is initiated, 
ringing continues on each forward leg until the 
associated telephone is answered. Thus if forward leg 
calls are made to a subscriber's cellular phone and to 
their office phone simultaneously, the cellular phone 
continues to ring even if the office phone is answered. 
Likewise, the office phone continues to ring -even if the 
cellular jhone is...answexed.. Of.^ours€7-^^systan-wBe 



modified so that one phone stops, ringing when other is 
answered. As a further modification, the determination 
of whether one' phone stops ringing when another is 
answered could be made programmable and perhaps even a 
function of which phone answers first. Thus, in the 
foregoing example it might be desirable to have the 
office phone stop ringing if the cellular phone is 
answered, but not the other way around (i.e., the 
cellular phone would continue to ring irrespective of 
^whether or not the office phone is answered) . 



In the foregoing example, if the office phone is 
answered, the cellular phone continues to ring. And it 
continues to ring even if the office phone is hung up. 
Thus a person in the subscriber's office can speak with 
the caller and tell them to hold on - the subscriber 
should be with them in a moment. When the subscriber 
eventually answers the cellular phone (or answers a 
page, if they are using a pager), they can speak with 
the caller who has effectively been placed on hold 
merely by the action of the person in the subscriber's 
office hanging up. 

A more detailed embodiment of the invention is now 
described with reference to Figures 4a - 4k. The 
invention, as described with reference to t-h^o ^m,T*»s. 
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can be implemented in the computerized switch of a 
telephone switching office or can be implemented in an 
adjunct computer which controls the switch 41 in a 
telephone switching office or can be implemented in a 
5 telephone control system 40 which is attached to or part 
of a PBX, for example, in a business. As will be seen, 
u the invention as disclosed in—this embodiment has many 
of the same features as the invention disclosed with 
reference to Figure 2, but it has several additional 

10 features. For example, methods for handling long 
distance or toll calls are established so that the 
caller is not charged for a toll call until such time as 
the caller's telephone call is answered either by the 
subscriber or by another person who picks up the 

15 telephone 8 or 8' on the forwarding leg. Of course, that 
is the typical way in which toll calls are charged. In 
the invention as disclosed with respect to Figure 2, 
when a telephone call is received at step 10, answer 
supervision might then go back to the telephone company. 

20 Answer supervision not only tells the telephone company 
to start charging for the call but some long distance 
companies typically disable the voice channel from the 
caller until answer supervision is returned. The forward 
channel may be desired in some embodiments, since if no 

25 one answers the call, the caller may want to select 
voice mail, and the system would then need to hear the 
keys depressed by the caller in order to make that 
selection. Typically there is no need to enable the 
forward voice channel from the caller 2 until they are 

30 placed in contact with (i) the subscriber, (ii) a party 
who answered the forwarding leg call, or (iii) the voice 
mail system (so that the caller can leave a message and 
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distance call, a toll would be charged t<> ^ ^ 
even though they had not yet been connected to the 
subscriber (or anyone else) . if answer supervision were 
given at that time. The invention, as it will now be 
described with reference to Figures 4a - 4k, overcomes 
this and other drawbacks and adds additional features, 
as will become clear. 



The software listing which .is appended hereto as 
Appendices I - X generally corresponds to the fl ow 
diagrams depicted in Figures 4a - 4k. While the software 
listing implements the flow diagrams in most aspects 
there are some differences. For example, the description 
of the flow diagrams indicates handling more than one 
forward leg call, while the software is currently set up 
only to handle one forward leg call. Further, the 
software listing does not include the memo record 
feature or the music on hold feature, as yet. Such not 
included features can be readily implemented by those 
skilled in the art. 

The software is written in a language which is 
specifically adapted to test telephone system technology 
and is called VOS (Voice Operating System) . The software 
is available from Parity Software Development Corp., of 
San Francisco, CA and runs on the hardware environment 
of system 40 depicted in Figure 5, which will now be 
described. The hardware environment of the system 40 
includes an IBM compatible PC (personal computer) 90 
having CPU of the Intel 486 family or better. 
Preferably, the computer is an AST Bravo MT 486DX2 66 
with 16 Meg of RAM, a large SCSI hard drive, two serial 
ports, one parallel port, mouse, video and DOS, or 
equal. The VOS software ^.nnnrhc 
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The flow diagrams, which will now be described, assume 
that the system 40 runs in a multitasking environment 
and those skilled in the art will appreciate in 
comparing the flow diagrams with the computer code 
listing that certain compromises were made in 
implementing the flow diagrams into code. 



The hardware platform also preferably includes a 
Dianatel SmartSwitch96 with SmartBridge96 (switch serves 

10 as switch 41 in system 40), Dialogic LSI/120 interface 
cards, and Dialogic D/121 voice cards. These cards plug 
into the computer motherboard and are also connected to 
each other via PCM data busses, as shown in Figure 5. 
The software listing in the appendices and the Dialogic 

15 cards identified above and in Figure 5 are set up for 
working with POTS (Plain Old Telephone Service) loop 
£fcart lines. With small adaptations to the code and by 
selecting different interface cards (also available from 
Dialogic) , then T-l trunks can be used instead. Figure 6 

20 shows the hardware platform with Dialogic cards 
installed in the PC for use with trunks, 51. In either 
case, this hardware environment can only support a 
limited number of . active incoming calls. This is fine 
for a typical business application, such as where the 

25 hardware controls a PBX installed at the business, but 
if this system is to be scaled up to work with large 
numbers of callers, such as at a telephone switching 
office, then a more robust hardware /software environment 
should be used. Those skilled in the art will appreciate 

30 that several PCs can be used in tandem and certainly 
more powerful CPUs can be utilized. VOS was selected as 
the development environment for the software, but those 

clri 1 1 -in t-Vi«a »Y"t" roars fVirx-xco t- n nco nrtr-kt-Vtov 1 a vim < an a ■? T» 
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used to generate sounds, especially if a sound board is 
added. For example, a SoundBlaster board can be used to 
generate sounds and computer generated speech as well as 
using known boards of the SoundBlaster type. The 
computer may be equipped with a sound generation board 
if it is desired to generate call announcements over 
speakers 71 (Figure 1) . Thus the signaling system may be 



speech system which delivers audible communications over 
10 speakers 71 or by a combination of the two systems. 
Paging could alternatively be accomplished by sending 
signals to computers on the desks of subscribers, which 
computers could then not only provide the desired paging 
function, but could also advise the subscribers of the 
15 identities of callers by making use the calling party's 
CLID. Additionally the Dialogic D/121 voice cards can 
produce digitized voices stored, for example, on the 
^ard drive, in telephone connections with callers 2, 
subscribers 65 or parties 8.8' on the forwarding legs. 
20 Thus a means for producing courtesy messages to users of 
the system 40 is available. 

Additionally, the system may be connected to 
receive and send Signaling System Seven (SS-7) messages 
25 from and to the telephone company. SS-7 is well known in 
the telephone industry, and therefore does not need to 
be described here. Figure 5 depicts an optional SS-7 
messaging translator which can be embodied in a R-5 
computer by Stratus with SINAP option. 



The main task 100 is shown in Figure 4a. The main 
task 100 starts off by a step 102 in which the variables 
which are used during the processing are set to their 
default values, typical initialization rn„Hnoc tm,« . 
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drivers loaded, etc. After the variables are set up and 
other housekeeping chores accomplished, the processing 
falls through a loop which is made around a test made at 
step 104 to determine if a new inbound call has been 
5 received. The inbound call could be a call 3 from a 
caller 2 or a barge-in or meet-me call 7 from the 

^ subscriber -or-a call from -the subscriber -merely-t'o^-check — ~" ~ 

their voice mail, to update one or more forwarding 
numbers stored in the system or a. schedule of forwarding 

10 numbers , etc. If a new inbound call has been detected, 
the processing falls through first to step 106 where the 
inbound channel is determined, then to a step 108 where 
the Calling Line IDentif ication (CLID) is obtained (if 
available) and then processing then falls through to 

15 step 110 where the Inbound Task 200 is started to 
process the call on the indicated channel. 

The Inbound Task 200 is shown in Figures 4b and 
4b(l) - 4b(7) . The Inbound Task 200 starts off at Figure 

20 4b by obtaining the Direct Inward Dial (DID) number at 
step 201. In this embodiment, it is assumed that the 
subscriber uses one telephone number to call the system, 
while the subscriber's callers use a different telephone 
number to call the system. Therefore, the subscriber and 

25 the caller can be differentiated by the DID digits. 
Those skilled in the art appreciate, of course, that the 
DID digits are supplied by the telephone company to the 
system. At step 202, a test is made to determine whether 
the DID digits correspond to the telephone number used 

30 by one of a plurality of subscribers in order to gain 
access to the system. If the DID digits indicate that 
one of the subscribers has called in, then the 
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to determine if the DID digits indicate that a caller is 
trying to telephone a subscriber, in which case the 
processing branches via connector 205 to the processing 
shown on Figure 4b(l) . If the DID digits do not result 
in a positive test at either step 202 or 203, the 
processing falls through to step 204 where the call is 
disposed of and the task is then suspended at step 
204.1. . 



By way of a practical example, subscriber 1 may 
have a telephone number 555-7000 for use by callers and 
a telephone number 555-7001 for use by the subscriber to 
gain access. A second caller may have telephone numbers 
555-7010 for use by callers and 555-7013 for use by the 
15 subscriber to gain access. Of course, it would be 
envisioned that many more subscribers would be on the 
^ system than in this small example, but in this example, 
^he valid DID digits would be 7000, 7001, 7010 and 7013. 
If a call were made to 555-7009, the processing would 
20 fall through to step 204 where the call would be 
disposed of. That could be by, for example, playing a 
message to the caller indicating that they had reached 
an unassigned telephone number. If the DID digits 
indicate that a call were made to 555-7013, then that 
25 call would be identified as a call from the second 
subscriber for the purpose of gaining access to the 
system (e.g. to barge into an existing call or to 
monitor an existing call or to perform other functions) . 
Similarly, if the DID digits indicate that a call were 
30 made to 555-7000, that call would be identified as a 
call from a caller directed to the first subscriber. 



Assuming that the caller dialed a valid caller 
access DID, such as 555-7000 for the first suHsr-r-iHoT- on 
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the system, the processing then falls through via 
connectar 205 to block 206 on Figure 4b (1) where a test 
is made at block 206 to determine if the monitor mode is 
enabled* In the monitor mode the subscriber can monitor 
5 the caller (s) to determine if the caller wants to barge 
into the conference (the caller can be in communication 

_ with_ either _the voice mail system, or wi.tJi-^^person--~ - - 
answering on a forward leg) where the caller has been 
placed by the system. As the reader will note, two 

10 different processing paths are taken if the monitor mode 
is active. Many of the processes in each path have 
identical or similar processes in the other path. Where 
such process are identical, or are at least very 
similar, the same reference numeral is used, but in the 

15 monitor mode path those reference numerals have the 
letter % M' appended thereto. For example, after step 
in each path the % caller' variable is set active 
for that particular subscriber at steps 207 and 207M. As 
will be seen, these two paths accomplish very similar 

20 functions, and, indeed, the two paths could be combined 
as the difference in the functions are not highly 
significant. Rather, they demonstrate two slightly 
different methods of handling an inbound call by the 
system each of which have certain advantages. 

25 

Considering first the monitoring path, processing 
then continues on to the next block 208M where the 
Caller Disconnect Task 900 is started. The Caller 
Disconnect Task is described in detail with reference to 
30 Figure 4i. After the Caller Disconnect Task has been 
started, the processing then drops to step 209M where a 
page to the subscriber is initiated by starting the 
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called "call waiting- is set true for the subscriber. 

At step 212M a test is made to determine if the 
forwarding number, i.e., the number which is used on a 
forward leg call, is set to the null character, if so , 
then no forwarding number is in the system and 
processing goes on to the Caller Monitor routines via 

_connector^216, ^.a f orwarding^number . : i-s in th^system, 
then 'a test is made at step . 213M to see if the 
forwarding number programmed into the system is the same 
a the DID number. If so, the variable «four rings 
played- is set to true at step 214. The reason for this 
is that the present system is preferably used as an 
adjunct to, or embodied with, the telephone control 
system disclosed in U.S. Patent No. 5,375,161. Thus the 
forwarding number may be set to the subscriber's 
telephone number used in the apparatus disclosed in that 

^.S. Patent. If so, then the present system directly 
forwards the incoming call to that system externally of 
the PSTN without generating any ringing sounds. 
Otherwise, such ringing sounds are normally generated, 
as will be seen. 

A Forward Leg Task 500 is started at block 215M and 
then the processing falls through to the Caller 
Monitoring routines on Figure 4b(2) via a connector 216. 
As previously described the system may preferably be 
programmed to forward the call on a number of forwarding 
legs simultaneously or in sequence. The system 
preferably includes a database which stores the various 
forwarding numbers for a subscriber along with perhaps a 
schedule indicating at what times the various forwarding 
numbers are effective. For example, during working 
hours, including the time the Kiih^riKov ^ „ .n,, 
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commuting to and from work, they may decide to have both 
their work telephone number and a cellular number stored 
as their forwarding numbers for that time period. At 
other times they may have their home telephone number 
5 stored as the forwarding number, and at still other 
times they may have programmed the system to direct 
. calls- to the"*'v6ice mail ' Boxr"or" iiivbke call screening ~~ 
options. Such personal preferences would be preferably 
stored in a database associated with the system. At the 

10 point the processing reaches the block labeled *Start 
Forward Leg Task, * the Inbound Task would look to the 
database not only to determine the forwarding number 
then in effect, but. preferably also to determine if 
multiple forwarding numbers were then in effect. If so, 

15 the Forward Leg Task 500 would be repeatedly called at 
|his point, once for each forward leg required. 

It is to be recalled that this is a multitasking 
environment such that the Timer Task, Paging Task, the 

20 Forward Leg Tasks, and the Caller Disconnect Task can 
all be running simultaneously with this particular 
Inbound Task. Multiple instances of the Forward Leg Task 
and associated disconnect tasks may also be running. 
Finally, multiple instances of the Inbound Task are 

25 likely to be running together with its progeny, i.e., 
the tasks it calls either directly or indirectly. After 
the Forward Leg Task 500 is started at block 215M, the 
caller is added to a conference facility. In due course, 
assuming that the subscriber makes contact with the 

30 system, the subscriber will also be added to that 
conference. If multiple callers are on the system at the 
same time trying to contact different subscribers, then 
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rb^)^ nUmSral 216 ' WhlCh ^ alS ° ^ fOUnd ° n FigUre 

Referring now to Figure 4b (2) , the processing fi rst 
enters a first loop comprising steps 217M, 218M 220M 
222M, 223M, 224M and 225M. At step 217M a test 'is made 
to determine if either four rings have occurred or if 
the variable Afou^ rings played-'- ..is currently set 'true 
If yes, the incoming call branches to a block where a 
voice mail subroutine 234 is called, before returning to 
the first loop. This branch is taken if either four 
rings have been played at step 219M or if the subscriber 
has called in or answered a forward leg call, in the 
latter case, the incoming caller is sent immediately to 
voice mail so that the subscriber can monitor the 
caller's interplay with voice mail. The processing loops 
in the first loop until voice mail comes up (a voice 
>ail call is answered if it is, for example, an external 
voice mail machine) , in which case the test made at step 
225M causes the first loop to exit via steps 226M and 
226.1. 

Continuing through the first loop, the -no- branch 
from step 217M enters a test at step 218M which 
determines if a ring should be generated. Since the 
caller has not yet been added to the conference, and 
since answer supervision has not yet been returned, the 
ringing sounds are artificially generated. Ringing 
sounds have a particular cadence, and the test at step 
218M assures that the ringing at step 219M follows the 
desired cadence, if the party enters the ## keys at the 
keypad of their telephone, that action is detected at 
step 220M for the purpose of setting the -priority call 
waiting" variable at sten 2?im tf ~ _„. . _ 
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*9 keys at the keypad of their telephone, that action is 
detected at step 222M and the voice mail subroutine 234 
is called. If a forward leg has been answered, then the 
test made at step 223M will cause the processing to exit 
5 via its *yes* leg to block 226. If the subscriber has 
baxged into the conference on the barge- in leg 7 and has 

— left the monitoring mode (i.e. depressed the * Key" as 

tested at step 243, Figure 4b(4)), then the a test made 
at step 224M will cause this loop also to be exited to 

10 block 226. This might occur after the first loop is 
exited at step 217M in order to start voice mail and 
then reentered, but with the test at step 225M failing 
(because voice mail failed to respond) . Thus the caller 
and the subscriber can still be placed into telephone 

15 contact in the monitoring mode even if voice mail fails. 

v.. 

~ x If a forward leg is answered, or if the subscriber 
barges into the conference, or if the calling party is 
sent successfully to voice mail, then the processing 

20 falls out of the loop to block 226, as previously 
mentioned. At block 226.1 answer supervision is returned 
to the caller (i.e. toll charges start if it is a - long 
distance call and two-way communications become 
available - two way communications are often inhibited 

25 by long distance carriers until answer supervision is 
returned). After block 226.1 a second loop is entered 
which comprises steps 228M, 257M, 229M, 230M, 231M, 232M 
and 233M. If the caller enters *9 at the keypad of their 
telephone in this loop, the loop exits via step 227M 

30 where music is stopped (assuming it was started at step 
238M) , and calls the voice mail routine 234. Thus, the 
caller enters the first loop where they can hear 
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response to a page), or four rings have occurred, and 
the caller has been sent to voice mail and voice mail 
has answered, then the second loop is entered which 
normally just loops around steps 228M, 257M and 229M 
5 While in the second loop, if the subscriber answers a 
forward leg call, or barges into the call in response to 
a page, then the subscriber is added to the conference 
with the calling party. 

10 The second loop expands to include steps 230M, 

231M, 232M and 233M when the forward leg answers (as 
detected at step 229M) , and then hangs up (as detected 
at step 230M) so long as the calling- party is not active 
in voice mail. For example, the person answering on a 
15 forward leg may tell the caller that the subscriber is 
expected to phone the system in order to talk with the 
caller, and therefore the caller should wait on the 
\l.ine. During this waiting time, the caller hears a 
message about leaving a message (at step 232M) , or music 
(via step 233M) . The second loop also tests at step 228M 
for the caller touching *9 (to go to voice mail via 
subroutine 234) . 



20 



25 



30 



If monitoring mode is not active, then the test at 
step 206 on Figure 4b(l) takes the other branch. The 
call processing of the inbound call is similar to the 
monitoring mode processing just described, with the 
following more significant differences: Answer 
supervision is returned earlier (at step 207.1 instead 
of at 226.1), and the caller is added to the conference 
earlier (at step 211 instead of at step 226). Thus, 
instead of hearing a simulated number of rings (as at 
steps 218M and 219M) , the caller hears one ring (step 
213.1) and messages (at steps 213.2 and 2n ■* i K«^r»r-e 
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the Forward Leg Task 500 is started at block 215. 
Additional simulated ringing is played at steps 217 and 
218 only if there is no forwarding number (i.e., the 
forwarding number is equal to null) . Typically, 
5 processing is via block 213 and the message blocks to 
block 212 then thence to step 215, and then on to 
- connector. .256 (see Figure 4b (3-)).- 



Turning now to Figure 4b (3), the call processing on 
10 this sheet is similar to Figure 4b (2) in that there is a 
first loop (comprising steps 220, 222, 223, 224 and 
225), and a second loop (comprising steps 228, 257, 229, 
230, 231, 232, and 233) . The call handling is nearly the 
same for both modes (monitoring and non-monitoring), the 
15 more major differences having been spelled out above. 
These differences have little impact on whether the 
Subscriber decides to utilize the monitoring mode, and 
thus are primarily set forth here as two possible 
techniques for handling the incoming call from a caller. 

20 

Turning now to Figure 4b (4), assuming that the DID 
digits detected at step 202 were associated with the 
subscriber barge- in telephone number, .such as 555-7001 
in the prior example, the processing falls through 

25 connector 235 to step 236 where answer supervision is 
returned for the barger ' s telephone call. At step 237 a 
Barger Disconnect Task 400 is started. Processing then 
continues on to step 238 where a test is made to 
determine whether or not a caller is active on the 

30 system. If not, the processing branches to step 248 
after playing a ring at step 238.1. Otherwise, a caller 
is on the system and the processing falls through to 
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(PIN) stored. If a PIN is stored, then the «no' leg is 
taken and a ring is played at step 239.1. Otherwise, the 
"yes- leg is taken to step 258 where a test is made to 
see whether or not the monitoring mode is active, if the 
test at step 258 is -yes', then the processing falls 
through to step 241 where 'four rings played' is set 
active . 



If the "no- leg is followed .from step 238, meaning 
that no caller is on the system, then the party who 
telephoned is given a short period of time (one second 
in the present embodiment) at step 248 to start entering 
a PIN after the ring is played at step 238.1. in this 
embodiment it is envisioned that the subscriber has two 
personal identification numbers: one for the purpose of 
programming (which may be a longer, more complex PIN) , 
and the other to meet a caller in the conference (i.e., 
\to barge into the conference) for which a different PIN, 
which is preferably shorter, or even nonexistent, may be 
used to make it easier to enter and to gain access to a 
telephone call) . if the person starts entering data 
within the one second delay, then processing branches to 
step 250. 

If the *no* leg is followed from step 239, meaning 
that a caller is active and the subscriber has a PIN 
which must be entered, a message is played at step 239.2 
advising that a call is waiting and a PIN is requested 
at step 249. If the subscriber has entered their 
programming PIN, then a test made at step 2 50 is 
satisfied, and processing falls through to step 251 
wherein the subscriber can change their program 
variables, their forwarding number (s), voice mail 
attributes, their schedule, activate or deactivatP the 
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monitoring mode, or gain access to their voice mail 
system. Those tasks are not described in detail here 
since it is known in the art how to change such 
variables . 

5 

If the person calling on the barge- in line inputs 

the barge- in PIN— at- step 252, -it- must be the subscriber 

who is trying to join the conference. Processing then 
falls through to step 253 where a .test is made to see if 
10 a caller is active for this subscriber. Normally, if the 
subscriber is responding to a page, then the caller 
variable is active, and, if true, processing continues 
via block 258. If a caller is not active, the subscriber 
is advised at step 254 that there is no call waiting, 
15 and processing returns back to step 249. If the person 
telephoning does not enter a PIN at step 248, then the 
pbspcessing continues via connector 280 to Figure 4b (6) . 

The variable *four rings played* is set at step 
20 241 • If the calling party is still in the first loop of 
Figure 4b(2), setting "four rings played* variable to 
true causes the calling party to be immediately 
transferred to voice mail where the subscriber can 
monitor the calling party. Indeed, step 242, which 
25 follows step 241, adds the barger to the conference in a 
listen only mode (i.e. a half duplex mode) about the 
same time the calling party is added to the conference. 
As will be seen, the voice mail system is also connected 
to the conference for the purpose of recording the 
30 incoming party's message (and thus allowing the 
subscriber to ascertain who is telephoning before taking 
the call) . 
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entered while the subscriber monitors the incoming call 
The subscriber can (i, , enter the conference by pushing 
the * key (as tested at step 243); or, <ii>, remove 
himself or herself from the monitoring mode by either 
depressing the # key (as tested at step 244 and 
implemented at step 255), or simply hanging up ( in which 
case the subscriber is removed from the conference by 
the Barger Disconnect Task 400),,. if the subscriber 
decides to speak with the calling party, they merely 
depress the * key and then enter the conference in full 
duplex communication at step 246. At the same general 
time, the variable -barger- is set active (see step 
245), and, after the subscriber barges in, a joining 
tone is played at step 247 to advise the calling party 
that the barger is coming in and call waiting is reset 
at step 247.1. Processing then proceeds to the Barger 
Answer routine on Figure 4b(5) via connector 260. 



Referring now to Figure 4b (5), at . this point the 
subscriber has been identified as wanting to barge into 
the telephone call with the caller, and since the caller 
is in a conference (see steps 211 and 226), the 
subscriber has been added to that same conference (at 
step 246), and a tone was played (at step 247) which all 
25 parties in the conference can hear so that they know 
that the subscriber has barged into the call. The 
processing on the barger leg 7 now enters a loop at 
steps 290, 262, 266, 268, 269, 270, 273, and 275 to 
determine whether the subscriber 65 enters certain codes 
at his or her keypad of their telephone instrument 6 and 
to perform certain other tests. As will be seen, certain 
codes control a call waiting feature, while other codes 
allow a message to be recorded, or an outbound call to 
be initiated, or forward leg calls to be brouaht down. 
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or other features to be utilized. 

In the example shown in Figure 4b (5), the loop 
first calls a subroutine 290 (see Figure 4b(6)) which 
5 checks to see if a new call from another caller is 
received. The loop next tests at step 262 to determine 
if ** is entered at the subscriber's keypad. If so,_the 
subscriber can first answer the subsequent call and then 
toggle between two conferences at steps 263 and 265. The 

10 loop then tests for #8, or #9, to be entered at the 
keypad. If #8 is entered (as tested at step 266) , that 
will stop forwarding leg tasks at step 267, and as will 
be seen, that action will disconnect the forwarding legs 
9, 9' if it has (they have) been connected. If the 

15 subscriber enters #9 (as is tested at step 268), the 
voice mail subroutine 234 is called. If more than one 
dialler have telephoned the subscriber at more or less 
the same time, they will join separate conferences and 
the variable *call waiting* will be set active (i.e. 

20 true) . 

The loop next tests (at step 269) for #4 being 
entered at the keypad indicating that the subscriber 
wants to initiate an outbound call. If so, an Outbound 

25 Call subroutine 277 is called. The loop next tests (at 
step 273) for #3 being entered at the keypad indicating 
that the two conferences are to be joined together. A 
test is made at step 271 to determine if two conferences 
are active, and, if so, then they are joined at step 272 

30 and an appropriate tone is played at step 272.1. The 
loop also tests for the entry of #6 (at step 273) and #7 
(at step 275) for starting and stopping a recording 
Hpvitp. This feature allows a oartv to the conference to 
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mail message for the subscriber. Thus, important topics 
which are discussed with a caller can be recorded. If 
needed, a periodic tone can be easily generated while 
the parties conversation is being recorded. The 
5 recording task is started at step 276 and stopped at 
step 278. This loop has no explicit exit, but it is 
exited when the Inbound Task for the barger is suspended 
by the Barger Disconnect Task 400. 

10 Giie of the advantageous features of the present 

invention is that either the subscriber/ or the caller, 
or any party on a forwarding leg, can start the voice 
mail task 700 when they are in telephone communication 
via the conference with another party so that a joint 

15 message may be left in the subscriber's voice mailbox. 
This can be very useful in certain situations. For 
example, the subscriber may be in an automobile and may 

t connected to the system via a cellular telephone, 
at can be a very inconvenient time, indeed, an unsafe 
20 time, to take notes. By allowing the voice mail to be 
started while the part ies are in the conference, by any 
party, it allows a voice note to be stored which the 
subscriber can then go back and listen to when in a more 
convenient location. As has been described, the system 
25 also permits the caller to start the voice mail task 700 
(see steps 222 and 222M) so that the subscriber need not 
take his or her hands off the automobile wheel in order 
to have the voice mail task 700 started. 



30 Another advantageous feature of the present 

invention is that the subscriber can make outbound calls 
in a new conference while speaking with a party in 
another conference. For example, the subscriber, while 
speaking with a first party, may decide that they need 
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more information from a second party. The subscriber can 
call the second party in a new conference, speak with 
them, and then either toggle between the two conferences 
(by keying **), or join the two conferences into a 
5 single conference (by keying #3) • The Outbound Call 
subroutine 277 on Figure 4b (6) implements this feature • 

In the foregoing description, the various loops 
wait for keys to be pressed in order to invoke 

10 additional features. Voice recognition systems are well 
known, and therefore some practicing the present 
invention may find it useful to have the loops sense not 
only for the operation of keys on a keypad, but also to 
initiate the described functions in response to voice 

15 commands . 

\ N Turning now to Figure 4b (6) , the *Barger NoEntry* 
routine 280, *Start Voice Mail* subroutine 234 and 
*Barger Call Waiting* subroutine 290 are depicted. 

20 

In the Barger NoEntry call processing, the caller 
on the barge-in leg has not entered a PIN as tested at 
step 248 on Figure _4b(4) and, of course, no call was 
waiting to be answered. The party is permitted to enter 

25 voice mail, in that a new conference is set up at step 
281, and voice mail is started at step 282, and added to 
that conference. The Barger Call Waiting routine 290 is 
called followed by step 284 and 285 which loop with the 
call to routine 290. In this loop, a test is made at 

30 step 284 for the entry of ***" at the keypad of the 
barger 's telephone instrument. If a caller calls in 
while the barger is in active invoice mail, the barger 
will hear two beeps (plaved by routine 290) and if the 
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step 286 before branching to step 287 (the barger toggle 
connector) . 

The Barger Outbound Call routine 277 is also 
5 depicted on this figure. At step 277.1 a test is made to 
determine if a call destination is selected. The "no" 
leg is showing looping on step 277.1, but it is 
un derstood that if a valid des tinatio n is not_.sjalec.ted. 
after reasonable opportunity is given to do so, or if 

10 the .barger elects to escape from this function, the 
routine would simply return to its calling point. If a 
valid destination is selected, then, if necessary, the 
destination phone number is looked up at step 277.2 (for 
example, a speed dial number may be used to identify a 

15 destination) before an outbound channel is seized (step 
277.3) and the number of the destination is dialed (at 
step 277.4) . The barger is added to a new conference 
\^step 277.5) and the outbound channel is added there as 
well (step 277.6). If the outbound call is answered, as 

20 is tested at step 277.7, the routine simply returns at 
step 277.11. Otherwise, if busy, or no answer occurs, 
then the barger is switched back to the conference from 
which he came at step 277.8, the outbound call is 
disconnected from the conference, and the call is torn 

25 down at steps 277,9, and 277.10. 

Turning now to the Barger Call Waiting subroutine 
290, if call waiting is not active (as tested at step 
290.1), the- routine merely returns. Otherwise call 
30 waiting tones are played twice (as tested at step 290.2) 
to the subscriber. For normal call waiting, one type of 
waiting tone is played (at step 290.6), while if the 
caller has indicated that their call is a priority call 
(see steps 220, 221, 220M and 221M) , a different call 
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waiting tone is played at step 290.5. 

The *Start Voice Mail* subroutine 234, which is 
depicted on Figure 4b (7), starts off by testing to see 
5 if voice mail is already active at step 234.1. if so, 
nothing further is needed and the subroutine exits at 
__-step 234.7. Otherwise, a test is made at step 234. 2__ to 
determine if voice mail is enabled. If not, a courtesy 
message is played at step 234.3 and the routine exits 
10 (returns) at step 234.5. If voice mail is enabled, then 
the Start Voice Mail Task 700 is called at step 234.4 
before exiting at step 234.5. 



15 In this embodiment it is assumed that voice mail is 

provided by a separate service provider available via 

v 

tfte PSTN 50 (such a service provider may have a voice 
mail equipment of the type made by Octel, for example) . 
Thus, some subscribers may opt not to subscribe to a 

20 voice mail service and that choice would be stored in 
the aforementioned database (together with the telephone 
number of the voice mail service, if available for the 
subscriber) . Thus, the test made at block 234.2 can be 
determined by examining the database, for example. If 

25 voice mail is available, the Voice Mail task 700 is 
started if it is idle for this subscriber at step 234.4. 
Similarly, if voice mail is not available, the caller 
would be preferably informed of that fact at block 
234.5, after which the subroutine returns at 234.5. 

30 

Instead of utilizing an external voice mail system, 
the Voice mail system may be embodied with the present 
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Turning now to the Paging Task 300, that will now 
be described with reference to Figure 4c. Recall that 
the Paging Task runs concurrently with the Inbound Task 
(see steps 208 and 208M on Figure 4b(l)). when the 
Paging Task is started, an outbound channel is seized at 
step 302. The telephone number of the subscriber's 
paging system is dialed at step 304 . -Appropriate i.d. 

information is output to the pager at step 306 - this 

will preferably include the CLID of the caller (if 
available) so that the pager can display the telephone 
number or other information about the caller on the 
display of the pager. The CLID, if available, can also 
be used to look up information about the caller, such as 
the caller's name, etc., in the database for 
transmission to the subscriber. Thereafter, the paging 
channel can be disconnected at step 308 and the task 
suspended at step 308.1. This processing assumes, of 

^ourse, that the pager is controlled by a typical 
dial-up pager connected via the PSTN 50. That is a 
common way of dealing with the pager, since the pager 
system facilities are often provided by a separate 
company. However, another way of dealing with the pager 
system is to use a direct, dedicated connection between 
system 40 and the pager system, so that instead of 
seizing an outbound channel and dialing the pager 
company via the PSTN, such as shown in steps 302 and 
304, the system would preferably seize the dedicated 
connection to the pager company and output the necessary 
information directly at step 306. Additionally, the 
Pager Task can also be used to instruct a digitized 
speech system to deliver audible pages over speakers 71 - 
Indeed, the Inbound Task 200 can start more than one 
instance of the Pager Task 300 so that the subscriber is 
paged both audibly and via a conventional pager device 
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61, if desired. At the same time the Paging Task(s) 300 
is (are) being run, the Forward Leg Task(s) 500 is (are) 
also being run. 

5 The Barger Disconnect Task 400 is shown at Figure 

4d. A test is made at step 402 to see if a disconnect 
wh ich has occurred on the barge in leg 7 . If so, _the 
barger variable is set inactive (false) at step 404 and 
the call waiting variable is similarly set inactive 

10 (false) at step 406. The subscriber is disconnected from 
the conference at steps 408 and 410. The caller and the 
party on an active forward leg will remain in the 
conference. This is a useful feature. The subscriber may 
barge into a conference and find their secretary and the 

15 caller already engaged in a conversation. The 
subscriber's secretary, in this example, is on a forward 
l%g 9 , 9 * . If the secretary can handle the matter for 
the caller, the subscriber can simply excuse themselves 
from the conference and hang up - the caller and the 

20 secretary on the forward leg remain in communication. 
Before suspending the Barger Disconnect Task at step 
414, the Inbound Task 200 which the subscriber (barger) 
is on is suspended at step 412. 

25 The Forward Leg Task 500 will now be described with 

reference to Figures 4e(l) - 4e(4). The forwarding 
active variable is set at step 502 and then an idle 
outbound channel is seized at step 504. The number of 
the telephone 8 on the forwarding leg 9 is then dialed 

30 at step 506. This may be a number available via the PSTN 
or may be an extension number of a directly connected 
PBX. The forward leg channel is then added to the 
conference at step 508 so that the callina Dartv can 
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supplied with generated sounds which may sound like 
normal call processing, such as the rings generated in 
the first loop on Figure 4b(2)). If multiple legs are 
being utilized, then it would probably be preferable to 
5 either supply the caller with generated sounds or to 
delay adding a forward leg to the conference until the 
forward leg is answered, otherwise hearing multiple legs 

being dialed and/or ring ing , more or less 

simultaneously, would not be especially helpful to the 

10 calling party. In that case, or alternatively, a message 
could be played to the caller informing that the system 
is attempting to contact the subscriber at a number of 
locations . 



15 The Forward Leg Disconnect task 600 is then started 

at step 510, and, thereafter, the processing proceeds to 
step 512 where a first timer is started, and then to 
v ^tep 514, where a test is made to determine whether the 
forward leg call has been answered. If so, the 

20 processing then continues to the forward routine on 
Figure 4e{2) via connector 540. Otherwise, a test is 
made at step 518 to determine whether the forwarding leg 
is busy and, if not, then a test is made at step 520 to 
determine whether the first timer set at step 512 has 

25 expired. If the first timer has not timed out, then 
program loops, waiting either for the forward call to 
answer or for the first timer to timeout. If the first 
timer times out, or if a busy condition is detected, 
then a call to the voice mail subroutine 234 is made 

30 before falling through to step 522, where a test is made 
to determine if voice mail is available. If so, a second 
timer is set at step 528 and answering of the forward 
leg is again tested at step 530 in a small loop with 
block 532 where expiration of the second timer is 
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tested- If it expires, or if the test made at step 522 
fails, then forwarding is set inactive at block 534 to 
remove this forward leg from the conference and to 
disconnect this forward leg channel. The Forward Leg 
Task is thereafter suspended at step 536. Otherwise, if 
the forward leg is answered as tested at step 530, the 
p roce ssing goes to_the forward routine on Figure 4e_(2_L 
via connector 540 . ^ 

A busy condition can be tested by a number of 
different techniques . For example, the system can be 
listening for the tell-tale busy sound. The Dialogic 
card previously mentioned have such capability. If the 
system is connected to the PSTN via SS-7, then a data 
packet can be returned to the system indicating busy 
without even the need to open an audio channel to the 
nymber being telephoned. Finally, when the system is 
connected to or with a PBX, the PBX can readily advise 
whether or not an extension is busy. 

As svuning that the forwarding leg call is answered, 
as is tested at steps 514 and 530, the processing 
continues via connector 540 to the flow diagram of 
Figure 4e(2) and to block 541 where a test is performed 
to see if monitoring mode has been enabled. If not, 
further processing is through the forward answer routine 
on Figure 4e(3) via connector 560, after first adding 
the forward leg to the conference as a listener (i.e. in 
full duplex mode) at step 547, stopping the voice mail 
task (at step 548) , and testing to determine if the 
barger is active (at step 549) . If the barger is not 
active, then call waiting is also reset at step 550. 
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by the subscriber, then the subscriber is first added to 
the conference as a listener (i.e., in half duplex) at 
step 542 before a loop comprising blocks 543 and 544 is 
entered. In the loop the subscriber can listen to the 
caller's interplay with voice mail and make a decision 
regarding whether or not to join the conference which 
the caller is in. The subscriber joins by depressing the 
* key (as tested at step 543), and leaves by depressing, 
the # key (as tested at step 544), or, alternatively/ by 
hanging up. If the subscriber exits by the * key, then 
they are removed from the conference at step 551, the 
forward channel is disconnected at step 552 and call 
forwarding is set inactive at step 553. The task then 
suspends at step 554. If the subscriber depresses the * 
15 key, then the processing continues via block 546 where a 
joining tone is played before continuing with steps 547, 
548 and 549. 

V 

If the subscriber is going to barge into the call, 
20 then processing continues on Figure 4e(3). The 
processing on the figure is very similar to the 
processing previously described with reference to Figure 
4b (5) . There is good reason for this. The processing on 
Figure 4b (5) tests for commands from the subscriber to 
25 enable certain features. The processing on Figure 4e(3) 
test for many of the same commands for the party 
answering a forward leg call. Thus, the processing loops 
in a loop which includes a call to a Forward Leg Call 
Waiting subroutine 590 and steps 562, 566, 568, 569, 
30 570, 573, 575 and 578. 



The party on the forward leg can toggle between 
conferences as tested at steps 562, 562.1, and 563. 
Compared with the corresponding testing made at steps 
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262 and 263, the testing on the forward leg includes an 
additional test (at step 562,1). The additional test at 
step 562.1 tests for the barger being active. If so, the 
ability to toggle between conferences is taken away from 
5 the person on the forward leg. 

- — Similarly, at—step 570.1 where the ability to join- 
conferences by depressing the #3 keys is taken away from 
the person on the forward leg if . the barger is active. 

10 Otherwise the processing of steps 566, 567, 568, 569 , 
570, 571, 572, 572.1, 573, 574, 575 and 576 corresponds 
with the previously described processing of similarly 
numbered steps 266, 267, 268, 269, 270, 271, 272, 272.1, 
273, 274, 275 and 276, respectively. The loop on Figure 

15 4e(3) also contains an explicit exit via step 578 which 
is described below. 

A test is made at 568 to see if the person on the 
forward leg enters #9 at their keypad. That person would 

20 typically be the subscriber, but could be a third party 
who answered the caller's telephone call. If they enter 
#9, the Voice Mail subroutine 234 is called. The test at 
step 578 determines whether the caller or barger is 
active. If neither the caller 2 nor subscriber on the 

25 barge-in leg 7 is active, there is no point in allowing 
the forward leg to remain up, so the processing falls 
through to step 579 where the forwarding is set 
inactive, and thereafter, the forwarding task is 
suspended at step 579.1. 

30 

The Forward Outbound Call routine 577 is depicted 
on Figure 4e(4). At step 577.1 a test is made to 

-3 ~ ^ ~ * G =» nail z^oef inafinn *t <; col or* f- T)io n nO* 
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understood that if a valid destination is not selected 
after reasonable opportunity is given to do so or if the 
subscriber elects to escape from this function, the 
routine would simply return to its calling point, if a 
valid destination is selected, then, if necessary, the 
destination phone number is looked up at step 577.2' (for 
example, a speed dial number may be used to identify a 
destination) before an outbound channel is seized (step 1 



577.3)- and the number of the destination is dialed (at 
step 577.4). The person making the outbound call is 
added to a new conference (step 577.5) and the outbound 
channel is added there as well (step 577.6). if the 
outbound call is answered, as is tested at step 577.7, 
the routine simply returns at step 577.11. Otherwise, if 
busy, or no answer occurs, then the party is switched 
back to the conference from which they came at step 
577.8, the outbound call is disconnected from the 
conference, and the call is torn down at steps 577.9 and 
577.10. 



The Forward Call Waiting subroutine 590 is also 
depicted in this figure. If the barger is active (as 
tested at step 591), or if call waiting is not active 
(as tested at step 590.1), the routine merely returns. 
Otherwise call waiting tones are played twice (as tested 
at step 590.2) to the party. For normal call waiting, 
one type of waiting tone is played (at step 590.6), 
while if the caller has indicated that their call is a 
priority call (see steps 220, 221, 220M and 221M) , a 
different call waiting tone is played at step 590.5. 

Turning now to Figure 4f, the Forward Leg 
Disconnect task 600 is now described. This task bears 
some resemblance to the Barger Disconnect Task 400 
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previously described. Here, an initial loop comprises 
two tests, made at steps 602 and 604, instead of one 
test. The test made at step 602 detects whether a 
disconnect has occurred on the forward leg which this 
5 task is monitoring. The test made at step 604 tests a 
variable * forwarding active" to see whether forwarding 
is a ctive. If^it has_been set inactive, then Jbhe forward, 
leg is brought dowh^ i~e~. , "disconnected. This can occur, 
for example, under control of the subscriber on the 

10 barge-in leg, if the subscriber on the barge-in leg 
satisfies the test at step 266, for example, by 
depressing the keys #8, in which case forwarding leg 
active variable is reset (set inactive) . In that way, 
the subscriber on the barge- in leg can cause the 

15 forwarding leg to disconnect. That can be useful where 
the subscriber wants to make sure they have a private 
conversation with a caller, without fear of having 
someone eavesdropping on a forward leg 9, 9'. Otherwise, 
if a party is on the forward leg, the subscriber is on 

20 the barge-iri leg, and the caller is on the caller leg, a 
three-way (or more) conference will be in place. 

After the loop is exited, forwarding is set 
inactive at step 606 and the leg is removed from the 
25 channel at 608, disconnected at 610, and the associated 
Forward Leg Task 500 is suspended at 612. Then this task 
suspends itself at 614. 

As previously discussed, Voice Mail Task 700 is 
30 preferably provided which can attach the members of the 
conference to the subscriber's voice mail system so that 
notes may be taken or so that a message for the 
subscriber may be recorded. The voice mail task 700 is 
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The voice mail system may be either a separate 
stand alone system, for example of the type disclosed in 
U.S. Patent No. 5,375,161 (the disclosure of which is 
hereby incorporated herein by reference) , or an integral 
system. In the present embodiment , it is assumed that 
the present system is connected to the Telephone Call 
^i ling ^l^_^closed in U. S. Patent No 375-! 6 ^ 



by dedicated connections. However, connections via the 
PSTN 50 may also be used. In either event, the voice 
mail system is controlled by inputting appropriate codes 
into the voice mail system. Assuming for the moment that 
the voice mail system is a separate stand-alone system, 
the voice mail variable is set active at step 702, an 
15 output channel is seized at step 704, the voice mail 
telephone number is dialed at step 706 and appropriate 
codes to access the subscriber's voice mailbox are 
^utputted. The codes may be stored in the previously 
described database. Thereafter, at step 708, the voice 
mail channel is added to the conference, and the voice 
mail disconnect task 800 is then started at 710. Next, a 
voice -mail timer is started at block 712 to ensure that 
the voice mailbox is answered within "a predetermined 
time period. That test is made by looping at steps 714 
25 and 716. If the timer expires, the voice mail variable 
is set inactive at step 718 and the task suspends at 
step 722. If the voice mail system answers, as is tested 
at step 714, the processing goes through to a short loop 
at step 720 where a test is made to see if the caller or 
30 the barger is active. If neither one are active, the 
processing falls through to step 718 where voice mail is 
set inactive and the task is then suspended at step 722. 

The Voice Mail Disconnect task 800 is shown in 
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Figure 4h. A test is made at step 802 to see if a 
disconnect has occurred on the voice mail leg. Normally, 
one would not expect a voice mail system to disconnect, 
but that could occur, and therefore, a test is made for 
5 that event at step 802. More likely, some action will 
set voice mail inactive, in which case the processing 
.will fall through from -the test made -at- step 804 to step - 
806, 808 and 810, At step 806, voice mail set inactive, 
if not already done so by some other action. The voice 
10 mail channel is removed from the conference at step 808, 
the voice mail is disconnected at step 810, the voice 
mailbox task is suspended at step 812, and the voice 
mail disconnect task suspends itself at step 814. 

15 The Caller Disconnect Task 900 is shown in Figure 

4i. This figure is very similar to Figure 4f, and 
therefore, it is not described in detail other than it 
is noted instead of checking a forward leg 9, 9', the 
caller leg 3 is checked. If the caller active variable 

20 becomes inactive, the caller link is brought down. That 
could occur, for example, by the subscriber entering a 
defined key sequence while in the loop depicted on 
Figure 4b (5). Of course, that would require another test 
in that loop to detect the defined key sequence, and 

25 then the subscriber would have the ability to cause all 
connections to come down. 

The Timer Task 1000 is depicted in Figure 4 j . This 
task staxts a timer at step 1002 to set the timer active 
30 variable at step 1004. A test is made at step 1006 to 
determine if the timer has expired. If so, the 
processing falls through to block 1008 where the timer 
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A Record Task 1100 is depicted in Figure 4k. This 
task is called whenever a memo is to be recorded The 
task starts off by adding itself to the caller's 
conference at step 1102. Recording begins at step H 04 
and continues until the task is halted, as tested at 
step 1106. When halted, the task stops recording and 
posts the message t o the subscriber !s voice -mail (at" 
step 1108) and then suspends (at step 1110). 

Comparing the functionality of Figures 4a - 4k with 
the system described in Figure 2, those skilled in the 
art will, of course, appreciate that the system 
implementing the flow chart of Figures 4a - 4k is much 
more robust. In Figure 2, provision is made for the 
ability to park the caller and for a parked timer to 
expire. See, for example, steps 38-44. In the present 
multitasking embodiment described with reference to 
figures 4a - 4k, there is no need to explicitly park the 
caller. If the person answering the telephone on the 
forwarding leg hangs up, that brings down the forwarding 
leg, but does not affect the caller on the calling leg 
3. During that time, the Inbound Task would still be 
looping during the loop comprising the steps 220 - 225, 
or the loop comprising steps 217M - 225M. 

Addit ional Fsatures 

Additional features are envisioned for the 
disclosed system. The hardware environment may include 
the ability to receive, decode and transmit SS-7 
messages, as previously described. The SS-7 facilities 
being implemented in the PSTN can provide messages to 
the system 40 indicating, for example, that a subscriber 



WO 96/G9731 



PCT/DS95/12318 



57 

has turned on their cellular phone 81. Each time a 
cellular phone is turned on it must sign onto the 
cellular system 80 with which it communicates. The 
cellular system 80 can send a SS-7 message to system 40 
5 informing the system 40 that the cellular telephone 81 
has just signed on to the cellular system 80. The 
database of system 40 is used to determine how many 
Pager Tasks 300 need to be started in response to a 
caller's call (in addition to determining how those 

10 pages are to be made) , and how many Forward Leg Tasks 
500 need to be started in response to a callers call (in 
addition to determining to which telephone addresses the 
forward leg calls are to be addressed) . This information 
may be stored as a normal schedule for the subscriber, 

15 as previously mentioned. The SS-7 messages, such as the 
message noted above, can be used to override the 
preprogrammed schedule. For example, at 10:00 A.M* 
weekdays the preprogrammed schedule m thinks* that the 
subscriber is in his, or her, office. However, at 10:05 

20 A.M. the system receives an SS-7 message indicating that 
the cellular telephone in the subscriber's automobile 
was turned on. The database should indicate to the 
system how to react to this situation. Possible 
reactions might be: 

25 (1) Do nothing; 

(2) Switch Forwarding Tasks to the cellular 
telephone number, unless the subscriber is on the 
system; 

(3) If the subscriber is on the system, emulate 
30 a Call Waiting function (preferably a priority call 

waiting function) and advise the subscriber in a new 
conference facility that their automobile (assuming that 
is where the cellular teleohone in Question is located) 
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(4) During preprogrammed time periods 
telephone the subscriber at one or more preprogrammed 
telephone numbers using the Forward Leg Tasks to tell 
them (using the digitized speech capabilities previously 
described) in a conference facility that their 
automobile (assuming that is where the cellular 
telephone in question is located) may be leaving the 
premises without their permission. 



10 



The SS-7 messaging service can also be used to 
advise the system 40 when the subscriber powers down the 
cellular telephone. The SS-7 signally specification does 
not explicitly provide a power down message, but the 
system 40 can learn about a power down situation by 
15 periodically sending a packet polling the cellular 
system about the status of the cellular telephone. If 
the cellular phone is no longer available, the system 40 
y^ill know that a power down must have occurred. The 
database preferably tells the system how to react. For 
20 example, then the system may revert back to the 
subscriber's preprogrammed schedule. 

Those skilled in the art will appreciate that in 
the described system 40, when the subscriber is barging 
into a call, that they are recognized by the system as 
the subscriber and are given certain privileges. For 
example, in the disclosed embodiment, only the 
subscriber can force the forward leg(s) to disconnect by 
entering a code (#8) - see steps 266 and 267 on Figure 
4b (5) . It is felt that consumers resist having to always 
use PINs and therefore the disclosed system does not 
require a PIN on the forwarding leg - indeed it is felt 
that it would often be dysfunctional. However, one 
modification which probably would be accepted in the 
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marketplace would be to include the ability for the 
subscriber to enter an optional PIN on a forwarding leg. 
Thus, after the party answering the telephone on a 
forwarding leg enters the valid PIN for the subscriber 
5 who is being sought, they would be given subscriber 
status (i.e. the ability to force other forwarding legs 

to disconnect) . Indeed,_ the monitoring mode could be_ 

disabled on the forward~Teg Until the PIN were entered. 

10 Another modification which might be desirable would 

be to automatically give subscriber status to persons 
answering the telephone at certain forwarding numbers 
(and perhaps only at certain times) , as stored in the 
database. For example, if a call is forwarded to the 

15 telephone 76 on the subscriber's desk at their office, 
the database could tell the system to assume that the 
pa^rty answering that telephone is the subscriber and to 
give them subscriber status. On the other hand, if a 
call is forwarded to the telephone 16 at the 

20 subscriber's home, the database could tell the system to 
assume that the party answering that telephone is not 
the subscriber unless they enter a PIN. These 
assumptions could be, of course, reversed, by making 
appropriate entries in the database. Similarly, 

25 subscriber status could be automatically granted if the 
forward leg call is answered within a certain time limit 
or within a certain number of rings. Thus, it would be 
useful where the forward leg call goes to a subscriber's 
office and the subscriber has a no-answer forwarding 

30 featured turned on to forward the call to their 
secretary, say after two unanswered rings. If the 
subscriber is not in their office and the call is 
forwarded to their secretary after two rings, the 
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(at the secretary's desk) . 



10 



15 



The changes needed to the disclosed flow charts to 
implement such capabilities are not extensive. For 
example, the forward leg on Figure 4e(3) could be 
enlarged to include a test for a PIN similar to the 
testing done at steps 248, 252 and 249 on Figure 4b(4) 

^ U ^: a Step Similar to step 25 2 wo uld a test. for-, a., 
valid subscriber "pin, "and to .set a * subscriber on 
forwarding leg- variable true if detected (of course, 
the database could set that variable true without the 
need of the answeree to enter a PIN) . The loop on Figure 
4e(3) would then test additionally for the "subscriber 
on forwarding leg* variable at steps 562.1 and 570. 



The processing on Figures 2b(5) and 5e(3) allow the 
subscriber to toggle between two conferences or to join 
\ tW ° conferences together. Those skilled in the art 
realize that it is relatively straight forward to allow 

20 additional conferences to be set up. Indeed, since the 
outbound calling feature implemented by subroutines 277 
and 577 require an additional conference to make an 
outbound call, it would be desirable to" allow more than 
two conferences to be set up. The problem which arises 

25 is that humans are not particularly adept at keeping 
track of more than two conferences. Thus, while the 
toggling feature can easily be set up conceptually to 
stack the conferences, or arrange them in a ring* and to 
merely proceed to the next conference in the stack, or 

30 the ring, when the subscriber enters the ** keys, the 
problem is that a human is apt to forget who is in which 
conference. There is a possible solution to this 
problem. The system should be able to identify who, and 
where, and keep track of that information for the 
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subscriber. For example, using CLID and a database, the 
system might know the name (or some other identifying 
feature) of a caller* At least the caller's telephone 
number should be known. Similarly with outbound calls — 
since the system preferably looks up the destination 
phone number in a database (see step 277.2 or 577.2), 
then — the system _also_ has identifying information 
available to it about outbound calls as well. This 
identifying information can h>e supplied to the 
subscriber , as the caller switches (toggles) among active 
conferences. When switching conferences, the system 
plays a joining tone in the switched- to conference at 
steps 265.1 and 565.1. At more or less the same time the 
system could also generate sounds, or speech, telling 
the subscriber which conference is being entered. For 
example, the system might play *Home*, *Your Secretary*, 
<Sr *Ms. Anderson* as the subscriber switches. The 
messages might include a conference number, thusly: 
*0ne, Home*, *Two, Your Secretary*, and, n Three, Ms. 
Anderson*. The conference joining feature (steps 270, 
271, 272 and 272.1 or 570, 570.1, 571,^ 572 and 572.1) 
may be modified to play the identifying information for 
each active conference, and ask the subscriber which 
conferences should be joined together. For example, if 
three conferences were active, upon entering the #3 keys 
the system might respond as follows: 

(1) By saying: "There are three active conferences 
which may be joined together. Should "Home" (or "One 
Home * ) be jo ined? * 

(2) The system would then wait for the subscriber 
to enter a - key (meaning yes) , or a # key (meaning no) . 
The testing would be done in a loop similar to steps 243 



WO 96/09731 

PCT/DS95/12318 

62 

Should -Your Secretary- (or "Two Your Secretary-, be 
joined? 

(4, Step (2, above is then repeated for conference 
number two . 

(5) Step (3) is then repeated for conference number 
three . 

(6) Step (2) is again repeated for the last 
conference . 



(7) The" conferences- for which the subscribed 
entered" the -yes- key (i.e., the * key in this example,, 
would then be joined with a joining tone being played as 
at steps 272.1 and 572.1. 

Having described a preferred embodiment of the 
invention, further modification and changes may now 
suggest themselves to those skilled in the art. The 
invention, therefore, is not to be limited to the 
disclosed embodiments as many changes and modifications 
will doubtless occur. Rather, the invention is to be 
defined by the scope of the accompanying claims. 
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APPENDIX I 

SOURCE CODE LISTING OF MAIN PROGRAM WRITTEN IN VOS 



# MAIN - main program 
# 

# This main task will spawn tasks for 12 time slots. 

# As calls enter the system, they will be routed to 
an available voice 

# processing time slot via the SS96/SB96. Up to four 
inbound calls to a '• 

# caller access number and a barge in call can be 
handled concurrently. 

# 

# GETDID+BARGER+CALLIN handle inbound calls 

# GETDID+CALLOUT handle barger initiated outbound 

calls . 

# FORWARD handles outbound forwarding calls 

# PAGE handles outbound paging calls 

# VMAIL handles outbound voice mail calls 

4% The assumed configuration is an SS96/SB96 cabled to 
a D121 on PEB1, 

# and cabled to DTI101 network cards on PEB2 and 
PEB4 . 

# 

# 



dec 

include "datmod.inc" # bring in library 
definitions 

include "global, inc" # bring in our global 

definitions 

var code: 16 ; # return value from C library 

calls • 

var test: 10, key: 3 ; # diagnostic commands 
var vpline:3 ; # voice processor line number 

var netline:3 ; # network line number 

# subscriber number 

# call number 

„ , # conference number 

var vppids [GDIDBGN . . PAGEEND] : 3 ; # pid for each 

task controlling a D12.1 line 

var volines fGDIDBGN . . PAGEEND] : 3 ; # holds netline 



var subs : 3 
var call : 3 
var conf : 3 
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number network line connected to 

var altlines [ALTBGN. .ALTEND] :3 ; # holds vpline 
number alternate netline connected to 

var confers [1. .CONFMAX] : 3 ; # conference active 

flag's 

var line: 3 ; # needed for scr_stat 

end 
. program 
# Initializations 

# make sure we have enough global memory allocated 
in INIT.DEF 

g lb_s e t ( GLOBALS - 1 , "123456789") ; 

if (glb_get (GLOBALS- 1) strneq "123456789") 

voslog( "SERIOUS ERROR: not enough global memorv 
allocated" ) ; J 
endif 

# initialize active global variables to null 
for (code = 0; code < GLOBALS; code++) 

glb_set (code, "") ; 
endf or 

V- glb_set(STRATUS_PRE, "M*81234567" ) ; # MF - PEB4 

glb_set(STRATUS_PST, "#") ; # MF - PEB4 

subs = 0 ; # subscriber #1 (Bob 

Fuller) 

glb_set (PSTN_PRE+subs, "T") ; # DTMF - PEB2 

glb_set(PSTN_PST+subs, "") ; % DTMF - PEB2 

glb_set (CALLER_NDMB+subs , "T206*654*5783# " ) ; 
glb_set(PAGER+subs, "6804910") ; # Bob Fuller's 
pager 

glb_set ( PRGRM_PIN+subs , "123") ; 
glb_s e t ( BARGE__PIN+ subs , " * " ) ; 

glb_set (CALLER_DID+subs, "5832000") ; # DTMF 
glb_set (BARGE_DID+subs, "6545783") ; # DTMF 

glb_set (FORWARD+subs, "5832000") ; # DTMF 
glb_set(VOICEMAIL+subs, "5832000") ; # DTMF 

subs = 1 ; # subscriber #2 (Ron 

Brooks) 

glb_set (PSTN_PRE+subs, "T") ; # DTMF - PEB2 

glb_set (PSTN_PST+subs, "") ; # DTMF - PEB2 

glb_set (CALLER_NUMB+subs, "T206*654*5781# " ) • 
glb_set(PAGER+subs, "9171284") ; # Ron Brooks' 
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pager 

glb_.se t ( PRGRM_PIN+subs , "123") ; 
glb_se t ( BARGE_PIN+subs , " * " ) ; 

glb_set (CAI»LER_DID+subs , "6545780") ; # DTMF 
glb_set(BARGE_DID+subs, "6545781") ; # DTMF 

glb_set(FORWARD+subs, "6545780") ; # DTMF 
glb_set (VOICEMAIL+subs , "6545780") ; # DTMF 

subs = 2 ; # subscriber #3 (Jim 

Brown) 



glb_set(PSTN_PRE+subs, "T") ; # DTMF - PEB2 

glb_set (PSTN_PST+subs, "") ; # DTMF - PEB2 

glb_.se t (CALLER__NUMB+subs , "T2Q€*654*5785#" ) ; 
glb_.se t(PAGER+subs, "9916101") ; # Jim Brown's 
fast pager 

glb_se t ( PRGRM_PIN+subs , "123") ; 
glb_set(BARGE_PIN+subs, "*") ; 

glb_set (CALLER_DID+subs , "6541022") ; # DTMF 
glb_set (BARGE_DID+subs , "6545785") ; # DTMF 

glb_set(FORWARD+subs, "6541022") ; # DTMF 
glb_set (VOICEMAIL+subs, "6541022") ; # DTMF 

subs = 3 ; # subscriber #4 (Dan 

&ransler) 

~\ - ■ 

glb_set(PSTN_PRE+subs, "T") ; # DTMF - PEB2 

glb_.se t(PSTN_PST+subs, "") ; # DTMF - PEB2 

glb_set(CALLER_NUMB+subs, "T206* 654*1003 #" ) ; 
glb_set(PAGER+subs, "9972575") ; # Dan 
Kransler's fast pager 

glb_set(PRGRM_PIN+subs, "123") ; 
glb_se t ( BARGE_PIN+subs , " * " ) ; 

glb_.se t (CALLER_DID+subs , "6541000") ; # DTMF 
glb_.se t (BARGE_DID+subs , "6541003") ; # DTMF 

glb_set (FORWARD+subs, "6541000") ; # DTMF 
glb_set (VOICEMAIL+subs, "6541000") ; # DTMF 

subs = 4 ; # subscriber #5 (Ron 

Brooks ) 

glb_set(PSTN_PRE+subs, "T81234567") ; # DTMF - 

PEB2 

glb_set(PSTN_PST+subs, "") ; # DTMF - PEB2 

glb_set (CALLER_NUMB+subs , "T206*654*5211#" ) ; 
glb_set(PAGER+subs, "9171284") ; # Ron Brooks ' 
pager 

glb_set(PRGRM_PIN+subs, "123") ; 
glb_set (BARGE_PIN+subs, "*") ; 
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glb_set (FORWARD+subs, "6545780") ; # DTMF 
glb_set(VOICEMAIL+subs, "6545780") ; # dtmf 

subs = 5 ; # subscriber #6 (Test 

call ) 

glb_set(PSTN_PRE+subs, ■T") ; # DTMF - p E B2 

glb_set(PSTN_PST+subs, "") ; # DTMF - PEB2 

glb_set (CALLER_NUMB+subs , "T206*654*5798# " ) • 
glb_set(PAGER+subs, "") ; # no pager 

glb_set ( PRGRM_PIN+subs , "123") ; 
glb_set ( BARGE_PIN+subs , " * " ) ; 

glb_set(CALLER_DID+subs, "6545799") ; # DTMF 
glb_set(BARGE_DID+subs, "6545798") ; # DTMF 

Slb.se t (FORWARD+subs, "4543864") ; # DTMF 
glb_set(VOICEMAIL+subs, "3927698") ; # DTMF 

subs = 6 ; # subscriber #7 (Ron 

Brooks) 

glb_set(PSTN_PRE+subs, "T") ; # DTMF - PEB2 

glb_set(PSTN_PST+subs, "") ; # DTMF - PEB2 

glb_set (CALLER_NOMB+subs / "T206*654*5787#" ) • 
glb_set(PAGER+subs, "9171284") ; # Ron Brooks' 
pager 

glb_set ( PRGRM_PIN+subs , "123") ; 
V glb_set (BARGE_PIN+subs, "*") ; 
^ glb_set (CALLER_DID+subs, "6545786") ; # DTMF 
glb_set (BARGE_DID+subs, "6545787") ; # DTMF 

glb_set (FORWARD+subs, "3927698") ; # DTMF 
glb_set(VOICEMAIL+subs / "6545780") ; # DTMF 

for (subs = 0; subs < SUBSMAX; subs++) 

# try open programming PIN file y 

code = fil_open( "program" &subs&" .nmb" , "rs") ; 

# check if file opened ~ 
if (code >= 0) 

# seek start of file 
fil_seek(code, 0, 0) ; 

# set programming PIN from file 

glb_set (PRGRM_PIN+subs, fil_get line (code) ) 

# close file 

f il_close (code) ; 
endif 



# try open barge in PIN file 

code = f il_open ( "bargein ,, &subs& H .nmb" , "rs") ; 
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# check if file opened 
if (code >= 0) 

# seek start of file 

f il_seek(code, 0, 0) ; 

# set barge in PIN from file 

glb_set (BARGE_PIN+subs, f il_getline (code) ) 



# close- file — - — 
f il_close (code) ; 

endif 

# try open forwarding number file 

code = fil_open("forward"&subs& w .nmb", "rs a ) ; 

# check if file opened 
if (code >= 0) 

# seek start of file 

f il_seek(code, 0, 0) ; 

# set forwarding number from file 
glb_set (FORWARD+subs , f il_getline (code) ) ; 

# close file 

f il_close(code) ; 
endif 

# try open voice mail number file 

code = fil_open("vmail"&subs& w .niub", M rs") ; 

# check if file opened 
if (code >= 0) 

# seek start of file 

f il_seek(code, 0, 0) ; 

# set voice mail number from file 
glb_set (VOICEMAIL+subs, fil_get line (code) ) 



# close file 
fil_c lose (code) ; 
endif 
endf or 
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voslog ( " Sreset ( ) returns " fcSreset ( ) ) ; 

# display the SS96 conference counts 
voslog ("Conferences: " fcSgetmode ( 8 ) ) ; 

# mark all vplines as free 

for (vpline = GDIDBGN ; vpline <= PAGEEND ; 
vpline++) 

if ((code = Ssetsig (vpline, SSAS ONHOOK, 
SSAL_N0)) <> 0) 

voslog ( "Ssetsig ("tvplinefic") code "&code&" 

error") ; 

- .•".*■ eridif -- --- •• —i- • -■• ■»••■ 

vplines [vpline] = 0 ; 
..e&dfor 

# make our pid public 
glb_set(MAINPID, getpidO) ; 

# initialize go-ahead flag 
glb_set (MAINFLG, getpidO) ; 

# spawn line tasks to control D121 vplines 
for (vpline = GDIDBGN ; vpline <= PAGEEND ; 

vpline++). 

switch (vpline) 





case 
case 


GDIDBGN: 
GDIDBGN+1 : 


spawna("getdid", vpline) ; 

spawna( "getdid" , vpline) 


/ 


case 


GDIDBGN+2 : 


spawna ( "getdid" , vpline) 


$ 


case 


GDIDEND: 


spawna( "getdid" , vpline) ; 


vpline) 


case 
case 


FWRDBGN: 
FWRDBGN+1 : 


spawna ( " forward " , vpl ine ) ; 
spawna ( " forward" , 


vpline) 


case 


FWRDBGN+2 : 


spawna ( " forward " , 




case 


FWRDEND: 


spawna ( " f orward " , vp 1 ine ) ; 




case 
case 


MAILBGN: 
MAILEND: 


spawna ( "vmail" , vpline) ; 
spawna ( " vmai 1 " , vpl ine ) ; 




case 
case 


PAGEBGN: 
PAGEEND : 


spawna ( "page" , vpline) ; 
spawna ( " page " , vpl ine ) ; 



default : 

endswitch 



# get PID of task for this line 
vppids [vpline] = msg_get(2) ; 
endf or 
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# change flag to "go ahead" value 
glb_set (MAINFLG, 99) ; 

# initialize signal alerting on network channels 
for (net line = NETBGN ; net line <= NETEND ; 

netline++) 

# set onhook with signal alerting enabled 
if ((code = Ssetsig(netline, SSAS_0NH00K, 

SSAL_YES) ) <> 0) 

voslog( " Ssetsig ( *&netline& w ) code - tt5 &codeSc" 

error") ; 

endif 

# set conferencing attenuation and suppression 
if ((code = Scnfparm ( net line, SBAT_N0NE, 

SBSU_SLIGHT) ) <> 0) 

vos log ( "Scnfparm ( "&netline&" ) code 
" &code& " error " ) ; 
endif 

netlines [netline] = 0. ; 
endfor 

# initialize signal alerting on alternate network 
channels 

for (netline = ALTBGN ; netline <= ALTEND ; 
nfetline++) 

# set onhook with signal alerting disabled 
if ((code = Ssetsig (netline, SSAS_0NH00K, 

SSALJNO)) <> 0) 

voslog ( " Ssetsig ( " &net linefc " ) code " &code& " 

error") ; 

endif 

# set conferencing attenuation and suppression 
if ((code = Scnfparm (netline, SBAT_N0NE, 

SBSU_SLIGHT) ) <> 0) 

vos log ( "Scnfparm ( "&netline&" ) code 
" &code& " error " ) ; 
endif 

altlines [netline] = 0 ; 
endfor 

# draw initial debug screen display 
scr_init() ; 

# Main loop 
for(;;) 

# check event queue on SS96 
code = Sgetevt(O) ; 

switch( substr(code, 1, 1)) # process based 
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case "E" : # valid event 

netline = subs tr (code, 3, 2) ; # get line 
event occured on 

switch ( subs tr (code, 5, 2)) # process based 
on type of event 

case SSEVT_SIGNAL: # signal bit changed 

# event on network line ? 
if ( (netline >= NETBGN) and (netline 



<= NETEND) ) 



netline 



voslog("SS Event: "&code) ; 

# check received bit state 

if (substr (codev 7 ; 1 j eq i) " r - ; 
# check for existing call on 



if (netlines [netline] <> 0) 

# existing call - assume 

this is answer supervision 

# check for forwarding 

task vpline 

if ( (netlines [netline] 
>= FWRDBGN) and (netlines [netline] <= FWRDEND) ) 

# look through 
subscribers and calls for call progress active on 
netline 

for (subs = 0; subs 

V: SUBSMAX; subs++) 

^ for (call = 0; 

call < FWRDMAX; call++) 

if 

(glb_get(FWRDlCPA+SUBSMAX*call+subs) eq netline) 

# 

abort possible caller's task sc_play (e.g. ringing) 

sc__abort (glb_get (CALLlACT+SUBSMAX*call+subs ) ) ; 

voslog ( "sc_abort ( "&glb_get (CALLlACT+SUBSMAX*call+su 
bs)&")") ; 

# 

abort forwarding call progress analysis 

sc_abort (netlines [netline] ) ; 

voslog ( "sc_abort ( "&netlines [netline] &" ) " ) ; 

# 

request answer supervision be returned to caller 
glb_set (CALLlANS+SUBSMAX*call+subs, vpline) ; 

endif 
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endfor 
endf or 
endif 

else 

# new incoming call if 
signaling changed to offhook (ring) 

# Find a free inbound 

vpline, if available 

for (vpline = GDIDBGN ; 
(vpline <= GDIDEND) and (vplines [vpline] <> 0) ; 
vpline++) 

endfor 

if- (vpline > GDIDEND) 
voslog ( "ERROR: no 



free inbound vpline") 



net line 
vpline ; 



else 

# free vpline found 

# mark lines as busy 
vplines [vpline] = 

netlines [netline] = 



# inform GETDID task 



"what vpline to use 

if ((code = 
msg_put ( vppids [vpline] , vpline)) <> 0) 

voslog 

("msg_put("&vppids [vpline] &", "&vpline&") code "&code&" 
error " ) ; 

endif 

# inform GETDID task 

what netline to process 

if ( (code = 
msg_put (vppids [vpline] , netline) ) <> 0) 

voslog 

("msg_put ("&vppids [vpline] "Scnetlinefc- ) code "&code&" 
error " ) ; 

endif 

# inform GETDID task 

the call direction to process 

if ( (code = 

msg_put (vppids [vpline] , "In")) <> 0) 

voslog 

(•msg_put ("&vppids[ vpline] &", In) code "&code&" error") ; 
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endif 
endif 

else 

# event on alternate network line 

, . , if ( (netline >= ALTBGN) and 

(netline <= ALTEND) ) 

voslog("SS Event: "fccode) ; 

# check received bit state' 

if ( subs tr (code ,7,1) eq 1) 

i ^ - . # check for existing 

call on alternate netline 9 

0) if (altlines [netline] <> 

. - . * existing call - 

assume this is answer supervision 

- # check for 

forwarding task vpline 

( (a ir t iiSSSf? etline3 >= FW^BGN) and (altlines [netline] 
<= FWRDEND) ) J 

, ., , # look through 

subscribers and call for call progress active on netline 

for (subs = 0: 

subs < SUBSMAX; subs++) 

^0; call < FWRDMAX; call++) f ° r (ca11 

^ if 
(glb_get(FWKDlCPA+SUBSMAX*call+subs) eq netline) 

abort possible caller's task sc_play (e.g. ringing) 

sc_abort (glb_get (CALLlACT+SUBSMAX*call+subs ) ) ; 

voslog ( "sc_abort ( "&glb_get (CALLlACT+SUBSMAX*call+su 
bs)&")") ; 

abort forwarding call progress analysis 
sc_abort (altlines [netline] ) ; 
voslog ("sc_abort("&altlines [netline] &") " ) • 

request answer supervision be returned to caller 
glb_set (CALLlANS+SUBSMAX*call+subs, vpline) ; 

endif 
endfor 
endfor 



# 



# 
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endif 
endif 
endif 

else 

voslog( "ERROR: "&code&" - 
event not on network line") ; 

endif 
endif 

case SSEVT_SBOVERFLOW: # conference 

overflow 

voslog("SS Event: "&code&" - 
conference overflow" ) ; 

case SSEVT_FLIPDONE: # flip command 

completed 

voslog("SS Event: "&code&" - flip 
command completed") ; 

case SSEVT_RECVWINK: # inbound wink 

detected 

voslog("SS Event: "&code&" - inbound 

wink detected") ; 

\ case SSEVT_RECVFLASH: # inbound flash 

detected 

voslog("SS Event: "&code&" - inbound 

flash detected") ; 

case SSEVT_TIMEOUT : # line's timer 

expired 

voslog("SS Event: "&code&" - line's 

timer expired") ; 

default: # unexpected event 

voslog( "ERROR: "&code&" - unexpected 

event " ) ; 

endswitch 

case "N" : # no event found 

if (kb_qsize() > 0) 

key = kb_get ( ) ; 
switch (key) 

case "s": # SmartSwitch only 

voslog( "ERROR: SS 
"fcsubstr (1000+test,2,3)&" : "fcSstatus ( test ) ) ; 

test = 0 ; 
default: 
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else 

test = 0 ; 

end 
endswitch 

end 

case "X" : # error 

default: # error - should never happen 

voslog( "ERROR: Sgetevt() returned error = 

endswitch 



# Check for messages from line task 
?- code « msg_get(0) ; # don't wait if message 
not pending 

switch (substr (code, 1, 1)) 

case "O": # allocate and start an outbound 
CALLER task 

call = substr(code, 2, 1) ; # ge t 
message call number 

netline = substr(code, 3, 2) ; # get 
message netline number 

subs = substr(code / 5, 99) ; # get 
message subscriber number 
\^ # Find a free inbound vpline, if available 

for (vpline = GDIDBGN; (vpline <= GDIDEND) 
and (vplines [vpline] <> 0); vpline++) 

endfor 

if (vpline > GDIDEND) 

voslog( "ERROR: no free outbound 

vpline") ; 

if ((code = msg_put (msg_pid() , "O- 

NO" ) ) <> 0) 

voslog ( "msg_put ( "&msg_pid ( ) & " , O- 
NO) code "&code&" error") ; 

endif 

else 

# free vpline found 

# mark lines as busy 
vplines [vpline] = netline ; 

if ( (netline >= NETBGN) and (netline 

<= NETEND) ) 

netlines [netline] = vpline ; 

else 

if ( (netline >= ALTBGN) and 

(netline <= ALTEND) ) 

altlines [netline] = vpline ; 

else 

voslog ( "ERROR: invalid 
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outbound net line "fcnetline) ; 

endif 
endif 

# inform GETDID task what vpline to 

use 

if ((code = msg_put (vppids [vpline] , 

vpline)) <> 0) 

voslog ( "msg_put ( "fcvppids [vpl 
ine]&" , "&vpline&" ) code "&code&" error") ; 
endif _ _ _ _ 

# inform GETDID task what netline to 

use 

if ((code = msglput (vppids [vpline] , 

netline)) <> 0) 

voslog ( "msg_put ( " fcvppids [vpl 
ine] &" , "fcnetlinefic" ) code "&code&" error") ; 

endif 



use 

"Out")) <> 0) 



# inform GETDID task what direction to 
if ((code = msg_put (vppids [vpline] , 
voslog ( "msg_j?ut ( " & vppids [vpl 



ine ] Sc " , Out ) code " &code& " error " ) ; 
x endif 

# inform GETDID task what subscriber 
to use (when dir is "Out") 

if ((code = msg_put (vppids [vpline] , 

subs)) <> 0) 

voslog ( "msg_put ( "&Vppids [vpl 
ine] &" , "&subs&" ) code "&code&" error") ; 

endif 

# inform GETDID task what call to use 
(when dir is "Out") 

if ((code = msg_put (vppids [vpline] # 

call)) <> 0) 

voslog ( H msg_put ( " &vppids [vpl 
ine]&" , "&call&" ) code "&code&" error") ; 

endi f 

# reply to requesting task 

if ( (code = msg_put (msg_pid ( ) , 

"0"&vpline) ) <> 0) 

voslog ( "msg_put ( "&msg_pid<) &" # O 
"frvplinefc* ) code "&code&" error" ) ; 

endif 
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vpline task" ' # all ° Cat6 ^ Start * " * Warding" 

call = substr(code, 2, 1) ; # get- 

message call number 

subs = substr(code, 3, 99) ; # Q et 
message subscriber number 

if ((call < 0) or (call >= CALLMAX) ) 
Bf 11fB vos log ( " ERROR : invalid call number 

"&call&" message received") ; r 

else 

if ((subs < 0) or (subs >= SUBSMAX) ) 

. ^ vos log ("ERROR: invalid subscriber 

- number "&subs&^ message received") ; griper 

else 

• # Find a ^ee "forwarding" 

vpline, if available 

* . , . for < v P line = FWRDBGN; (vpline <= 

FWRDEND) and (vplines [vpline] <> 0); vpline++) 

endfor 

if (vpline > FWRDEND) 

voslog( "ERROR: no free 

forwarding vpline") ; 

else 

# free vpline found - mark it 

as busy 

vplines [vpline] = vpline ; 

\ 

. # inform requesting task what 

vpline was assigned 

if ( (code = 
msg_put(msg_pid() , "F"&vpline) ) <> 0) 

voslog ( "msg_put 
( " &msg_pid ()&",. F " &vpl ine& " ) code " &code& " error " ) ; 

endif 

, . # inform FORWARD task what 

vpline to use 

if ( (code = 

msg_put (vppids [vpline] , vpline)) <> 0) 

voslog ( "msg_put 
( "fcvppids [vpline] &" , "&vpline&") code "&code&" error") ; 

endif 

# inform FORWARD task of 

related subscriber number 

if ( (code = 
msg_put (vppids [vpline] , subs)) <> 0) 

voslog ( "msg_put 
( "fcvppids [vpline] &", "&subs&") code "&code&" error") ; 

endif 
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# inform FORWARD task of 

related call number 

if ( (code = 
msg_put (vppids [vpline] , call)) <> 0) 

voslog ( "msg_put 
( "fcvppids [vpline] &" , "&call&" ) code "&code&" error") ; 

endif 
endif 
endif 
endif 

case "V" : # allocate and start a "voice mail" 
vpline task 

call = subs tr (code, 2\ 1) ; # get 

message call number 

subs = substr(code, 3, 99) ; # get 
message subscriber number 

if ((call < 0) or (call >= CALLMAX) ) 

voslog ( "ERROR: invalid call number 
"&call&" message received") ; 

else 

if ((subs < 0) or (subs >= SUBSMAX) ) 

voslog ( "ERROR: invalid subscriber 
number "&subs&" message received") ; 
\^ else 

# Find a free "voice mail" 

vpline, if available 

for (vpline = MAILBGN; (vpline <= 
MAI LEND) and (vplines [vpline] <> 0); vpline++) 

endf or 

if (vpline > MAI LEND) 

voslog ( "ERROR: "ho free voice 



mail vpline" ) 
as busy 



else 

# free vpline found - mark it 
vplines [vpline] = vpline ; 

# inform requesting task what 



vpline was assigned 

if ( (code = 
msg_put (msg_pid() , "V"&vpline) ) <> 0) 

voslog ( "msg_put 
( "£cmsg_pid( ) &" , V"&vplinefic" ) code "&code&" error") ; 

endif 

# inform VMAIL task what 

vpline to use 

if ( (code = 
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("&vppids[vpiine]&", "&vpline&") code "&code&" error") - 

endif 

# inform VMAIL task of 

related subscriber number 

if ( (code = 
msg_put (vppids [vpline] , subs)) <> 0) 

voslog ( "msg_put 
( "fcvppids [vpline] &", "&subs&") code "&code&" error") ■ 

endi f 

# inform VMAIL task of 

.related call number " - - - 

if ( (code = 
msg_put (vppids [vpline] , call)) <> 0) 

voslog ( "msg__put 
( "&vppids [vpline] &", "&call&") code "&code&" error") ; 

endif 
endif 
endif 
endif 

case "P": # allocate and start a "paging" 
vpline task 

subs = substr(code, 2, 99) ; # get 
message subscriber number 

V if ((subs < 0) or (subs >= SUBSMAX) ) 

_> voslog ("ERROR: invalid subscriber 

number "&subs&" message received") ; 

else 

# Find a free "paging" vpline, if 

available 

for (vpline = PAGEBGN; (vpline <= 
PAGEENTO and (vplines [vpline] <> 0); vpline++) 

endfor 

if (vpline > PAGEEND) 

voslog ( "ERROR: no free paging 

vpline") ; 

else 

# free vpline found - mark it as 

busy 

vplines [vpline] = vpline ; 

# inform requesting task what 

vpline was assigned 

, . if ((code = msg_put (msg_pid ( ) . 

"P"&vpline)) <> 0) 

voslog ( "msg_put ( "&msg_pid 
( ) &" , P'&vplineJc" ) code "icodefc" error") ; 

endif 
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# inform PAGE task what vpline to 

use 

if ((code = 
msg_put (vppids [vpline] , vpline) ) <> 0) 

voslog ( "msg_put ( * &vppids 
[vpline] "&vpline&") code "&code&" error") ; 

endif 

# inform PAGE task of related 
subscriber number .„ . „ _ 

_ . i£ _ .( ( co de = — — 

msg_put (vppids [vpline] , subs)) <> 0) 

voslog ( "msg_put ( a & vppids 
[vpline] &", "&subs&") code "tcodet" error") ; 

endif 
endif 
endif 

case "N" : # allocate netline 

vpline = substr(code, 2, 99) ; # get 
message vpline 

# Find a free netline, if available - 
search from back to front 

\^ for (netline = NETEND; (netline >= NETBGN) 

and (netlines [netline] <> 0); netline — ) 

endf or 

if (netline < NETBGN) 

voslog ( "ERROR: no free netline to 

allocate") ; 

if ((code = rasg_put (msg_pid() , "N- 

NO")) <> 0) 

voslog ( "msg_put ( "&msg_pid( ) &" ,N- 
NO) code "ficCodeSc" error*) ; 

endif 

else 

netlines [netline] = vpline ; # mark 

network line busy 

vplines [vpline] = netline ; # 
update vpline connection data 

# reply to requesting task 

if ((code = msgjmt (msg_pid() , "N- 

OK")) <> 0) 

voslog ( "msg_put ( "Scmsg_pid ( ) & " , N- 
OK) code "Sccodefc" error") ; 

endif 

# send message to inform task of 
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netline) ) <> 0) 

voslog ( "msg__put ( " &msg_pid ( ) & n 
"&netline&") code • , &code& w error- ) ; 

endif 
endif 

case "A" : # allocate alternate netline 

vpline = subs tr (code, 2, 99) ; # get 
message vpline 

# Find a free netline, if available - 
.search, from front ~ to back — — - 

"~~ '~~ ' "for™( netline = ALTBGN; (netline <= ALTeJjd) 

and (altlines [netline] <> 0); netline++) 

endf or 

if (netline > ALTEND) 

voslog ("ERROR: no free netline to 

allocate") ; 

if ((code = msg_put (msg _pid() , W A- 

NO") ) <> 0) 

voslog ( "msg_put ( " &msg_pid ( ) & " , A- 
NO) code "&code&" error") ; 

endif 

else 

altlines [netline] = vpline ; # mark 

network line busy 

\^ vplines [vpline] = netline ; # 

update vpline connection data 

# reply to requesting task 

if ((code = msg_put (msg oid() , "A- 

OK")) <> 0) 

voslog ( "msg_put ( " «tmsg_pid ( ) & " , A- 
OK) code "&code&" error") ; 
- endif 

# send message to inform task of 

netline allocated 

if ((code = msg_put (msg_pid ( ) , 

netline) ) <> 0) 

voslog ( "msg_put ( " &msg_pid ( ) & " , 
"&netline&") code "&code&" error") ; 

endif 
endif 

case "D" : # deallocate netline 

netline = substr (code, 2, 2) ; # get 

message netline 

vpline = substr (code, 4, 99) ; # get 

message vpline 
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# check for vpline deallocate request 
if (vpline <> 0) 

# mark vpline as free 

vplines [vpline] = 0 ; 
endif 

if ( (netline >= NETBGN) and (netline <= 

NETEND) ) 

if ((vpline <> 0) and 
(netlines [netline] <> vpline)) „ 

voslog ( "ERRORT No active netline 
"&netline&" to deallocate") ; 

if ((code = msg_put (msg_pid ( ) , 

"D-NO") ) <> 0) 

voslog( "msg_put ( "&msg_pid 
() fit", D-NO) code "ficcodefic" error") ; 

endif 

else 

# mark netline as free 
netlines [netline] = 0 ; 

# reply to requesting task 

if ((code = msg_put (msg_pid ( ) , 

\D-OK") ) <> 0) 

%^ voslog ( "msg_put ( " &msg_pid 

()&" # D-OK) code "&code&" error") ; 

endif 
endif 

else 

if ( (netline >= ALTBGN) and (netline 

<= ALTEND) ) 

if ((vpline <> 0) and 
(altlines [netline] <> vpline)) 

voslog ( "ERROR: No active 
alternate netline "&netline&" to deallocate") ; 

if ( (code = 
msg_put (msg_pid( ) , "D-NO" ) ) <> 0) 

voslog ( "msg_put 
( " &msg_pid ( ) & " , D-NO) code "ficcodefic" error") ; 

endif 

else 

# check for vpline deallocate 

request 

if (vpline <> 0) 

# mark vpline as free 
vplines [vpline] = 0 ; 

endif 

# mark alternate netline as 
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# reply to requesting task 
if ((code = 
msg_put (msg_pid() , "D-OK")) <> 0) 

voslog ( "msg__put 
("&msg_pid()&",D-OK) code "&code&" error") ; 

endif 
endif 

else 

voslog ("ERROR: in deallocating 
netline "fcnetline) ; y 

.continue ; 

_ _^ -----endif """ — 

endif 

case "C": # allocate conference 

# Find a free conference, if available 
for (conf = 1; (conf <= CONFMAX) and 
(confers [conf] <> 0); conf++) 

endfor 

if (conf > CONFMAX) 

voslog ( "ERROR: no free conference to 

allocate") ; 

if ((code = msg_put (msg__pid() , "C- 

NO")) <> 0) 

voslog ("msg_put ( "&msg__pid( ) &" , C- 
W)) code "&code&" error") ; 

^ endif 

else 

# set conference active 
confers [conf ] = conf ; 

# reply to requesting task 

if ((code = msg_put (msg_pid() , "C- 

OK")) <> 0) 

voslog ( "msg_put ( "&msg_jjid ()&", C- 
OK) code n &code&" error") ; 

endif 

# send message to inform task of 
conference allocated 

if ((code = msg_put (msg_pid() , conf)) 

<> 0) 

voslog ( "msg_put ( "&msg_pid( )&" , 
"&conf&") code "&code&" error") ; 

endif 
endi f 

case "E" : # deallocate conference 

conf = substr(code, 2, 99) ; # get 
message conference 
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if ((conf < 1) or (conf > CONFMAX) ) 

voslog( "ERROR: in deallocating conf 

"&conf) ; 

if ((code = msg_put(msg_pid() , "E- 

NO") ) <> 0) 

voslog( "msg_jput ( "&msg_pid( ) &" , E- 
NO) code "&code&" error") ; 

endif 

else _ _ 

: "# mark cdhf er^ce 3 as : -f ree * = 
conf ers [conf ] = 0 ; 



OK") ) <> 0) 



# reply to requesting task 

if ((code = msg_put (msg_pid() , "E- 



voslog ( "msg_put ( " &msg_pid ( ) & " , E- 
OK) code "fccodeSc" error") ; 

endif 
endif 
endswitch 
endfor 

end 

\ 
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APPENDIX II 

SOURCE CODE LISTING OF AN INBOUND TASK 
USED BY THE MAIN PROGRAM 



# 

# J^GERJ/S^ D121 __line task _ 

.# . ~~ • "~ ' " . 

# Designed to work in concert with GETDID.VS 
# 

# 

dec 

^ ^. ^c. 1 ^ "datmod.inc" # SS96 library 

definitions J 

nuitO.er^ 111 ^ " global - inc " # global variable 

conferee N ° C0NF = ° '* # ch -^itin g (, not in 

inference *gS2r = ' # check --^in g ( , . 

const LISTENER = 2 ; # check_waiting< ) 
conference listener 

var code: 16 ; # return value from function 
calls 

number^ Vpl±ne:3 ; # voice Processing line 

numbed netline:3 ; # inbound network line 

numbe V r r ° Utline:3 ; # outbound network line 

var subs: 3 ; # subscriber number 

var call: 3 ; # call number 

var flash: 3 ; # flash DTMF digits 

var mainpid:3 ; # main task PID 

var sdate:7 ; # call starting date 

var stime:7 ; # call starting time 

var pin_entry:10 ; # barger PIN entry 

var phone_num:16 ; # phone number input 

var file: 3 ; # file handle 

7 aJ L C 4 ° nf:3 ; # conference number 
(conf subs) 
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var stats: 16 ; # beginning netline 

status (confsubs) 

var n:6, line: 3 ; # needed for scr_stat 

end 

program 

# Initializations 

mainpid = glb_get (MAINPID) ; 



vpline = argTO f ~ ~ 

if ( (vpline < GDIDBGN) or (vpline > GDIDEND) ) 

voslog( "ERROR: invalid vpline number "&vpline&" 
message received" ) ; 

hangup ( ) ; 

chain ( "GETDID" , vpline) ; 
endif 

line = vpline ; # debug only 

# Begin call processing 

# do not allow disconnects to run onsignal 
sc_watch (vpline, "+-", 1) ; 

t N # enable hang up jump to onsignal 
sc_use (vpline) ; 

# set call number inactive (in case of unexpected 
disconnect) 

call = ; 

while (length (netline = msg_get(3)) eq 0) 
endwhile 

if ((netline < NETBGN) or (netline > NETEND) ) 
voslog( "ERROR: invalid netline number 
"&netline&" message received") ; 
hangup ( ) ; 

chain ( "GETDID" , vpline) ; 
endif 

while (length(subs = msg_get(3)) eq 0) 
endwhile 

if ((subs < 0) or (subs >= SUBSMAX) ) 

voslog( "ERROR: invalid subscriber number 
"&subs&" message received") ; 
hangup ( ) ; 

chain ( " GETDID " , vpl ine ) ; 
endif 
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# set task debug screen status 
scr_stat("B-"&netline) ; 

# set barger present with both calls inactive 
glb_set(BARGlSUB+subs, "0") ; inactive 
glb_set (BARG2SDB+subs , " 0 ■ ) • 

# return answer supervision 

while ((code = sc_offhook(vpline)) <> T OFFH) 
voslog ("ERROR: code "&code&" while "takiao 

vpline "fevplxnefc^L^ffhookr)^; ** n iL-. - 

sleep(id') ; 

endwhile 

voslog ( "Answer supervision") ; 

# now allow disconnects to run onsignal 
sc_watch(vpline, "d+-", 1) ; 

# clear digit buffer 

s c_c lrdigi ts ( vpl ine ) ; 

if ((pin_entry streq glb_get (BARGE_PIN+subs) ) 
or (pm_entry streq glb_get (PRGRM PIN+subs) ) ) 



V 



goto sel_loop ; 
endif 

# check for a caller waiting 
if ( ( glb_ge t ( CALLlACT+subs ) 
or (glb_get(CALL2ACT+subs) <> 0) ) 

# reset call waiting request 
glb_set (CALLWAIT+subs , " " ) • 

# check for innnediate barge with null barge PIN 
if (glb_get(BARGE_PIN+subs) streq "") 

goto barge_in ; 

else 

# P la y ringing message (allows tone 

interruption) 

voslog ("sc_play( 'ringing' (001) .vox) ") ; 
sc_play(vpline / "PR0001 . vox" ) ; 

voslog ("sc_play( 'call waiting ' (105) .vox) " ) 

sc_play(vpline, "PR0105 . vox" ) ; 
endif 

else 

# play ringing message (allows tone 
interruption) 

VOSloa("SC Dlavl'rinniTirt' fnm \ ,r^„>«x 
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sc_play (vpline, "PROOOl.vox") ; 
endif 

# start PIN entry loop elapsed time 
sdate = date() ; 

stime = time() ; 

# check for DTMF entry in first second 

if ((code = sc_getdigits (vpline, 1 / 1, 1)) eq 
T_MAXDT.) : . _ - .. 

# add digit to ~PIN entry string 
pin_entry = sc_digits (vpline) ; 

goto check_j>in ; 

else 

# clear PIN entry strings 
pin_entry = 



MM . 

/ 



goto case_3 ; 
endif 

pin_loop : 

while (timesub(date() , time(), sdate, stime) <= 20) 
v # check for call waiting request 

^ check_waiting(NOCONF) ; 

# clear PIN entry string 
pin_entry = " " ; 

# ask for PIN number entry 
voslog("sc_play ( 'enter pin' (286) .vox) " ) ; 
sc_play (vpline, "PR0286 . vox" ) ; 

get_pin: 

while ( (code = sc_getdigits (vpline, 1, 3, 3) ) 
<> T_TIME) 

# add digit to PIN entry string 
pin_entry = pin_entry&sc_digits (vpline) ; 

check_pin : 

if ( (pin_entry streq 
glb_get (BARGE_PIN+subs) ) 

or (pin_entry streq 
glb_get (PRGRM_PIN+subs) ) ) 

break ; 
endif 
endwhile 

if (code eq T_TIME) 

continue ; 
*»ndif 
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sel_loop: 

# restart elapsed time 
sdate = date() ; 
stime = time() ; 

password # ***** t0 ±f Sntry matChes Programming 

if (pin entry streq glb_get ( PRGRM_PIN+subs ) ) 
stime) <= 20) tunesub(date ( ) , time(), sdate, 

# clear digit buffer 

_ . ' r: ~ -~ sc^_clrdigits (vpline)" - ";™ ' ~~~ 

# check for call" waiting request 
check_waiting (NOCONF) ; 

# give programming selections 
D.vox)") ; v °slog("sc_play( 'selection' (D00 

sc__play (vpline, "DOOl.vox") ; 

2)) eq T_MAXDT) " ' ^ = sc_getdigits Mine, 1, 2. 

break; 
endif 

v endwhile 

^ # check for dropped out of entry loop due 

to . tone entry 

if (code <> T_MAXDT) 

break ; 
endif 

# check for call waiting request 
check_waiting (NOCONF) ; 



"&code) 



code = sc_digits(vpline) ; 

voslog( "Subscriber selection number 



switch (code) 

# For testing - become an inbound Caller 
case "#": 

"6545786") ±f {glb - get (CALLER - DID+su bs) streq 

. m # set barger not present with 

both calls inactive 

glb_set (BARGlSUB+subs, "") ■ 
glb_set (BARG2SUB+subs, "") '■ 
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CALLIN 



msg_put (getpid( ) , netline) ; 

# send subscriber number to 

msg_pu t ( ge tpid ( ) , subs ) ; 

# replace our self with CALLIN 
chain ( "CALLIN" , vpline) ; 

endif 



"6545786") 



6, 1, 0) 



# For testing - record message prompts 
Case—- 6-^-: — — — -3— rr ^ — _ 

if (glb_get (CALLER_DID+subs) streq 

# play the prompt 

sc_play (vplihe, "record. vox" ) ; 

# record a message 

sc_record (vpline, "message, vox" , 

sleep (5) ; 

# play the message back 
sc_play (vpline, "message .vox" ) ; 

endif 

# Change forwarding number 
case "1": 

# clear digit buffer 
sc_clrdigits (vpline) ; 



# ask for new f orwarding number 
voslog ( " sc_play ( • enter transfer 

number 1 (D005) .vox) " ) ; 

sc_play (vpline, "DOOS.vox") ; 

# set • * • and ' # 1 as mask digits 
sc_toneint (vpline, 1, "*#") ; 

if (((code = sc_getdigits (vpline, 16, 
10, 3)) <> T_MAXDT) and (code <> T_MDTMF) and (code <> 
T_SIL) ) 

voslog ( "ERROR: "fccodeSc" - 
entering forwarding number failure") ; 

else 

phone_num = sc_digits (vpline) ; 



# allow entry of a second # #" or 



if ( ( (code = sc_getdigits (vpline, 
1, 1, D) <> T_MAXDT) and (code <> T_MDTMF) and (code <> 
T_SIL) ) 
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phone_num = 
phone_num&sc_digits (vpline) ; 

, „' . voslog(" Subscriber forwarding 

number: "&phone_num) ; y 



# check for leaving old number 
if (phone_num strneq "*") 

# remove any terminating 



• * i 



or '#' 

, . . % if ( (substr(phone_num, 

. leng.tm,(phone~num)~ r 1) streq "*") - — - 

or (substr(phone_num, 
length (phone_num) , 1) streq "#")) • 

phone_num = 

substr (phone_num, 1, length (phone_num) - 1) ; 

endif 

# update subscriber's 

forwarding number 

glb_set ( FORWARD+subs , 

phone_num) ; 

# open forwarding number file 
file = 

vfil_open( "forward" &subs&" .nmb", "wets") 

# seek start of file 
fil_seek(file, 0, 0) ; 

. # write new forwarding number 

string to file 

fil_writes (f ile, 
glb_ge t { FORWARD+subs ) & " x r x n " ) ; 

# close file 
fil_close(file) ; 

endif 



number follows 
is' (D004) .vox) ") 



R N | 

(FORWARD+subs) &" ' ) " ) 



# indicate current transfer 
voslog( w sc_play( ■ transfer number 
sc_play (vpline, "D004 .vox") ; 

# play current forwarding number 
if (glb_get (FORWARD+subs) strneq 

voslog("spk_dgts( ' w &glb_get 
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+subs) ) ; 

else 

voslog ( " sc_play ( ' null 9 

(????) .vox) ") ; 

sc_play (vpline, "null .vox" ) ; 
endif 
endif 

# enable tone interruption 
sc_toneint (vpline, ; 

# Change voice mail number 
case "2": 

# clear digit buffer 
sc_clrdigits (vpline) ; 

# ask for new voice mail number 
voslog ( "sc_play( 1 enter voice mail 

number 1 (D002) .vox)") ; 

sc_play (vpline, "0002 .vox" ) ; 

# set • * ' and • # * as mask digits 
sc_toneint (vpline, 1, "*#") ; 

\^ if (((code = sc_getdigits (vpline, 16, 

10, 3)) <> T_MAXDT) and (code <> T_MDTMF) and (code <> 
T_SIL) ) 

voslog ("ERROR: "&code&" - 
entering voice mail number failure") ; 

else 

phone_num = sc_digits (vpline) ; 

# allow entry of a second • #• or 

• * • 

if (((code = sc_getdigits (vpline, 
1, 1, 1)) <> T_MAXDT) and (code <> T_MDTMF) and (code <> 
T_SIL) ) 

voslog ( "ERROR: "&code&" - 
entering forwarding number failure") ; 

endif 

phone_num = 
phone_num&sc_digits (vpline) ; 

voslog ( "Subscriber voice mail 

number : " &phone_num ) ; 

# check for leaving old number 
if (phone_num strneq m * m ) 

# remove anv terminatina ' * ' 
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length (phone_num) , 1) streq "*") 

n ^ t . % or (substr (phone num, 

length (phone_num) , 1) streq "#")) ~ 

, ^ , , phone__num = 

substr (phone_num, 1, length (phone_num) - 1) • 

endif 

. , # update subscriber's voice 

mail number olce 

glb_set (VOICEMAIL+subs 

phone_num) ; 

# open voice mail number file 
file = 

fil_open( "vmail"&subs&" .nmb" , "wets") ; 

# seek start of file 
fil_seek(file, 0, 0) ; 

„ # write new voice mail number 

string to file 

fil_writes(file, 
glb_get (VOICEMAIL+subs) &" % r x n") ; 

# close file 

v fil_close(file) ; 

X endif 

# indicate current voice mail 

number follows 

, n voslog("sc_play( 'voice mail 

number .is' (D003) .vox) ") ; 

sc_play(vpline, "D(X03 . vox" ) ; 

# play current voice mail number 
if (glb_get (VOICEMAIL+subs) 

strneq " " ) 

voslog("spk dgts('"&glb get 
(VOICEMAIL+subs )&"') ") ; y ~ y 

spk_dgts (glb_get (VOICEMA 

else 

voslog ( "sc_play ( 'null • 



IL+subs) ) ; 
(????) .vox) ") 



sc_play(vpline, "null. vox") ; 
endif 
endif 

# enable tone interruption 
sc_toneint (vpline, 1) ; 
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stime) <= 20) 



# Change PIN number 
case "0": 

while (timesub(date() , time(), sdate, 

# clear digit buffer 
sc_clrdigits (vpline) ; 

# check for call waiting request 
che ck_wa i t ing ( NOCONF ) ; 



# give PIN programming selections 
voslog ( " sc _play ( • PIN 
selection 1 (???) .vox) ") ; 

sc_play(vplirie, "pinselct .vox" ) ; 

if ((code = sc_getdigits (vpline, 

1, 2, 2) ) eq T_MAXDT) 

break; 
endif 
endwhile 

# check for dropped out of entry loop 

due to tone entry 

if (code <> T_MAXDT) 

break ; 
endif 



1 &code ) 



# check for call waiting request 
check_wai t ing (NOCONF ) ; 

code = sc_digits (vpline) ; 

voslog ( "Subscriber selection number: 



switch (code) 

# Change programming PIN 
case "1" : 

# clear digit buffer 
sc_clrdigits (vpline) ; 

# ask for new programming PIN 

number 

voslog ( " sc_play ( ' enter 
programming PIN' (???) .vox) ") ; 

sc_play (vpline, ■ PRGRMPIN. vox" ) 

# set f * f and as mask digits 
sc_toneint (vpline, 1, "*#") ; 



W6 96/09731 

PCT/DS95/12318 

<> T_SIL) ) 

... . . voslog ( "ERROR: "&code&" - 

entering voice mail number failure") ; 

/ else 



phone_num = sc_digits (vpline) 
# allow entry of a second ' # • 



or •*' 

J# . if ( ( (code = 

m C ^l td f git ^ (vpline ' 1 ' 1}) <> T_MAXDT) and (code <> 
TJMDTMF) and (code <> T_SIL) ) „ 

. vos log ("ERROR: "&code&" 

- entering voice mail number failure") ; 

endif 

phone_num = 
phone_numfiesc_digits (vpline) ; 

_„ « „ voslog ( "Programming PIN: 

"&phone_num) ; 

# leave old number if • * • 

entered 

if (phone_num strneq «*") 

,*,,„, # remove any terminating 

w or # 

,^ . , % if ( (substr (phone_num, 

length (phone_num) , 1) streq ■*■) 

. or (substr (phone_num, 

length (phone_num) , 1) streq "#")) 

, ^ . , phone_num = 

substr (phone_num, 1, length (phone_num) - 1) ; 

endif 

# update subscriber • s 

programming PIN 

glb_set(PRGRM PIN+subs, 

phone_num) ; 

file # open programming PIN 

file = 

fil_open( "program "&subs&" .nmb M , "wets") • 

# seek start of file 

f il_seek(fil e , 0, 0) ; 

. _., * write new programming 

PIN string to file 

f il_writes (f ile, 
glb_aet ( PRGRM PIN+subs)&" VnM - 
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programming PIN follows 

is' (????) .vox) ") ; 

" PRGRMPIS . vox " ) • ; - •-• - 



95 

# close file 
fil_close(file) ; 
endif 

# indicate current 

voslog ( " sc_play ( • program PIN 

sc_play (vpline, 



PIN 

strneq " " ) 

-&glb_get (PRGKM_PIN+subs) &" • ) " ) 
(PRGRM_PIN+subs) ) ; 

(????) .vox) ") ; 
*Ilull.VOX") ; 



# play current programming 
i f ( glb_get ( PRGRM_PIN+subs ) 
voslog ( " spk_dgts ( • 

spk_dgts (glb_get 

else 

voslog ( ■ sc_play ( • null • 
s c_play ( vpl ine , 



endif 
endif 

# enable tone interruption 
sc_toneint (vpline, 1) ; 

# Change barge in PIN 
case "2": 

# clear digit buffer 
sc_clrdigits (vpline) ; 

# ask for new barge in PIN number 
voslog ( "sc_play( "enter barge in 

sc_play (vpline, " BARGEPIN . vox " ) ; 

# set • * 1 and ' # 1 as mask digits 
sc_toneint (vpline, 1, "*#") ; 

if (((code = sc_getdigits (vpline, 
16, 10, 3)) <> T_MAXDT) and (code <> T_MDTMF) and (code 
<> T_SIL) ) 

voslog ("ERROR: "fccodeSc" - 
entering voice mail number failure") ; 



PIN ' (???) .vox) ") 
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or # allow entry of a second •# 

if ( ( (code = 

sc_getdigits(vpline, 1, l, i)) <> T maxtttm i j 

T__MDTMF) and (code <> T.SIL)) T_MAXDT) and (code <> 

* • « voslog ( " ERROR : "&code&" 

- entering forwarding number failure") ; «"-oaeac 

endif 

. phone_num = ■ - 

pnone_num&sc_digr t s ( vpl ine ) ; 

■*phone_ nU m) , V ° Sl ° g< "* arge In Pn,: 

nuraber # Ch . eCk fcr leavin 9 old 

if (phone_num strneq ■*«•) 
.*. or , # , # remove any terminating 

length (phone.num) , 1) streq ( (substr <P h °^num, 

length (phone.num), 1) streq -#-))° r (substr <P h °ne_num, 

. . v . , , phone num = 

^ubstr(phone_num, 1, length (phone_num) - 1) ; 

endif 

barge in PIN # Update subs <^iber ' s 

phone_num) ; glb.se t (BARGE_PIN + subs, 

file # open programming PIN 

, , ■ file = 

t il_open( "bargein"&subs&" .nmb" , "wets") ; 

# seek start of file 
fil_seek(file, 0, 0) ; 

string to file # Wite * eW barge in PIN 

f il_writes (f ile, 
glb_get (BARGE_PIN+subs)&" v r x n") ; 

# close file 

fil_close(file) ; 
endif 
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PIN follows 

is' (????) .vox) -) 

"BARGEPIS.vox") 

strneq " " ) 



17 

# indicate current barge in 
voslog( "sc_play( 'barge in PIN 
sc_play (vpline, 



# play current barge in PIN 
i f ( glb_ge t ( BARGE_PIN+ subs ) 



"&glb_get (BARGE_PIN+subs)'&" ' ) - ) 
( BARGE_PIN+subs ) ) ; 

else 

(????) .vox) ") ; 
"null. VOX") ; 



voslog ("spk_dgts ( ' 
spk_dgts (glb_get 

voslog ( "sc_play( 'null 
sc__play (vpline. 



v. 



endif 
endif 

# enable tone interruption 
sc_toneint (vpline, 1) ; 

endswitch 

# Transfer to voice mail 
case "3 m z 
case_3 : 

phone.num = glb_get (VOICfeMAIL+sxibs) ; 
goto out_boxind ; 



case 



m Q n 



"6545786" ) 



# TEST - outbound calling function 
if (glb_get (CALLER_DID+subs ) streq 



tone' (274) .vox) " ) 



# play dial tone message 
voslog ("sc_play( 'dial. 

# 

sc_jplay (vpline, " PRO 274. vox B ) ; 

# set ■*• and '#' as mask digits 
sc_toneint (vpline, 1, "#") • 

if (((code = sc_getdigits (vpline, 7, 
10, 3)) <> T_MAXDT) and (code <> T_MDTMF) and (code <> 
T SIL) ) 
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goto sel_loop ; 

else 

phone_num - sc_digits (vpline) • 
, # . # remove any terminating •*• 0 ? 

, ■ . . if ( (subs tr (phone num. 

length (phone_num) , 1) streq -*-) 

i / i_ or (substr (phone num, 

length (phone_num) , 1) streq "#")) ~~ 

i t ^. , , phone_num = substr (nhonp ™™« 

1, length (phone_num) - 1) ; ^tr iP none_num, 

- — " " _ _ endif - - 

endif 

* enable tone interruption 
sc_toneint (vpline, 1) ; 

out_bound: 

# set outbound call number 

if (glb_get(CALLlACT+subs) eq 0) 
#1 # cal1 #1 inactive - so use call 

call = 0 ; 

else 

if (glb_get (CALL2ACT+subs) eq 0) 
call #2 * call #2 inactive - so use 

% call = 1 ; 

else 

na11e _ . , ax voslog( -ERROR: No barger 

calls available") ; 

call = ■• ; 

goto sel_loop ; 
endif 
endif 

if (phone_num streq 
glb_get (VOICEMAIL+subs) ) 

# as * outbound alternate netline 

be allocated 

msg_put (mainpid, "A"&vpline) ; 
"A-OK") ±f ((code = "^Q-getO)) strneq 

. , _ voslog{ "ERROR: code "&code&" 

when allocating outbound netline") ; 

call = " " ; 

goto sel_loop ; 

endif 

# get allocated outbound 

alternate netline 
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msg_get(3)) eq 0) 

endwhile 

if ( (outline < ALTBGN) or 

(outline > ALTEND) ) 

voslog( "ERROR: invalid 
outline number "&outline&" message") ; 

call = "" ; 
goto sel_loop; 
endif 

else „ _ — 

# ask outbound net line be 

allocated 

msg_put (mainpid, "N"&vpline) ; 
if ((code = insg_get(3)) strnea 
"N-OK") M 

vos log ( " ERROR : code " &code& " 
when allocating outbound netline") ; 

call = "" ; 
goto sel_loop ; 
endif 

# get allocated outbound netline 
while (length (outline = 

j;g_get (3) ) eq 0) 
\ endwhile 



(outline > NETEND) ) 



if ((outline < NETBGN) or 



voslog( "ERROR:, invalid 
outline number "&outline&" message") ; 

call = "" ; 
goto sel_loop ; y 
endif 
endi f 

# ask conference be allocated 
msg_put (mainpid, "C") ; 

if ((code = msg_get(3)) strneq "C-OK") 
vos log ( "ERROR: code n &code& w when 
allocating conference") ; 

call = " " ; 
goto sel_loop ; 

endif 

# get allocated conference number 
while (length(conf = msg_get(3)) eq 0) 
endwhile 

if (conf < 1 or conf > CONFMAX) 

voslog ( "ERROR: invalid conference 
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endif 

vosl °9( "Allocating conference -& C onf) 

# temporarily wrong vpline # set outbound call active 
vpline) ; g lb -Set(CALLlACT + SUBSMAX*call +S ub S/ 

# temporarily wrong vpline # set outbound call answered 
vpline) ; _ glb - set(CALL1ANS+SUB SMAX*call +S ubs / 



conf) "; 



outline) ; 



netline) ; 



vpline) ; 

(not started) 
"") ; 

"•) ; 

inactive 
"") ; 

progress inactive 
" ") ; 

(not started) 



# set outbound conference number 
glb_set (CALLlCNF+SUBSMAX*call+subs , 

# set outbound caller netline 
glb_set (CALLlNET+SUBSMAX*call+subs • 

# set outbound barger active 
glb_set (BARGlSUB+SUBSMAX*call+subs, 

# set outbound barger answered 
glb_set (BARGlANS+SUBSMAX*call+subs # 



# set outbound forwarding inactive 
glb_set (FWRDlACT+SUBSMAX*call+subs / 



# set outbound forwarding unanswered 
glb_set (FWRDlANS+SUBSMAX*call+subs, 



# set outbound forwarding netline 
glb_set (FWRDlNET+SUBSMAX*call+subs , 

# set outbound forwarding call 
glb_set (FWRDlCPA+SUBSMAX*call+subs , 



# set outbound voice mail inact 



lve 



alb (matt.i ArT*cno 
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" ") ; 

inactive 
■") ; 



transmit 
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# set outbound voice mail netline 
glb_set (MAILlNET+SUBSMAX*call+subs , 

# ignore disconnects 
sc_watch (vpline, "lw+-", 1) ; 

-# drive vpline reee-i-ve-- f rom .outline 



if ((code = Scon(vpline, outline, 

SSAS PASS, SSAL_N0)) <> 0) 

~ voslog (" Scon ( "&vpline&" , 

"&outline&") code "&code&" error") ; 

else 

voslog (" Scon ("&vpline&" , 

«&outline&" ) : "fcSstatus (vpline) ) ; 

endif 

# drive outline receive from vpline 

transmit . . 

if ((code = Scon (outline, vpline, 

S"SAS PASS, SSAL_N0)) <> 0) 
^> ~* voslog ( " Scon ( ' &outline&" , 

"frvplinefc") code "&code&" error") ; 

else 

voslog (" Scon ( "&outline&" , 

"&vpline&"): "&Sstatus (outline) ) ; 

endif 

# save the initial time 
sdate = date() ; 

stime = timeO ; 
out_seize : 

# go off hook 

if ((code = sc_of f hook (vpline) ) <> 

T OFFH ) 

~~ voslog ("ERROR: code "&code&" 

while putting vpline "&vpline&" of f hook" ) ; 

goto out_retry ; 

else . 

voslog ( "sc_of fhook( "&vpline&" ) ) 

endif 

# wait one second for next event 
report _ in > . 
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1 &code) 



# check for loop current event report 
if (code <> T_LC0N) 

voslog ( " ERROR : Loop current 
timeout on vpline n &vpline) ; 

goto out_retry ; 
endif 



report 
M &code) 



# wai t one second for next event 

code = sc_wait (vpline, 10) ; 
vosiog ( "sc_wait ( "frvpline't" , 10) = 



vpline "fcvpline) 



# check for wink event report 
if (code <> T_WKRECV) 

voslog ( "ERROR: Wink timeout on 

goto out_retry ; 
endif 

# drive netline receive from outline 

transmit 

if ((code = Scon (netline, outline, 
SSAS_OFFHOOK, SSAL_N0) ) <> 0) 

voslog ( " Scon ( " &netline& " , 
outlines") code "&code&" error") ; 

else 

voslog ( "Scon( "&netline&" , 
&outline&" ) : "&Sstatus (netline) ) ; 

endi f 



" &phone_num) 



voslog ( "Dialing outbound number 



# dial the outbound number - wait 
until dialing complete 

if (phone_num streq 
glb_get (VOICEMAIL+subs) ) 

code = sc_dial (vpline, 
glb_get ( STRATUS__PRE ) &phone_num&glb_get ( STRATUS_PST) ) ; 

else 

code = sc_dial (vpline, 
glb_get ( PSTN_PRE+subs ) &phone_num&glb_get ( PSTN__PST+subs ) ) 

endif 

# check dialing completion coded 
if (code <> T_DIAL) 

voslog ( "ERROR: code "icodeSc" 
while dialing outbound number " &phone_num) ; 
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out_retry : 

if (timesub(date ( ) , time(), 

sdate, stime) < 12) 

# put vpline onhook 
if ((code = 

sc onhook (vpline ) ) <> T_ONH) 

~" vos log ( " ERROR : code 

"&code&" while putting vpline "&vpline&" onhook") ; 

else 

vos log ( " sc_onhook 



("&vpline&") a ) - 



endif 

# wait for onhook recognition 
sleep (10) ; 

goto out_seize ; 

else 



out_discon: 

call 



# release barger's outbound 
release_outbound_call ( ) ; 

# drive vpline receive from 

n&tline transmit . 

if ((code = Scon (vpline, 

netline, SSAS_PASS, SSAL.NO) ) <> 0) ,.^,4 

vos log (" Scon (" &vpli 

ne&", "&netline&") code "&code&- error") ; 

else 

voslog( "Scon( "&vpli 
ne&" , "&netline&" ) : "&Sstatus (vpline) ) ; 

endif 

# drive netline receive from 

vpline transmit ' . . 

v if ((code = Scon(netline, 

vpline, SSAS.PASS, SSAL_YES) ) <> 0) 
y voslog( "Scon( "&hetl 

ine&" , "&vpline&" ) code n &code&" error") ; 

else 

voslog ( " Scon ( " &netl 
ine&" , "&vpline&" ) : "fcSstatus (netline) ) ; 

endif 

# give time for netline loop 

current to settle at vpline 

sleep (3) ; 
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sc_watch (vpline, "d+- w , 1) ; 

goto sel_loop ; 
endif 
endif 

# drive vpline receive from netline 

transmit 

if ((code = Scon(vpline, netline, 
SSAS_PASS, SSAL_N0) ) <> 0) 

voslog("Scon( n &vpline& n , 
,, &netline& ,, ) _code . M ,&code&" error") ; 

"^else ; ' ' ' ' 

voslog("Scon( "&vpline&" , 
"&netline&" ) : "StSstatus (vpline) ) ; 

endif 

# drive netline receive from vpline 

transmit 

if ((code = Scon (netline, vpline, 
SSAS_PASS, SSAL_YES)) <> 0) 

voslog( "Scon ( "&netline&" , 
"&vpline&") code "&code&" error") ; 

else 

voslog ( "Scon ( n &netline&" , 
"&vpline&" ) : "&Sstatus (netline) ) ; 
\^ endif 

# give time for netline loop current 
to settle at vpline 

sleep (3) ; 

# allow disconnects to run onsignal 
sc_watch (vpline, M d+-", x l) ; 



conference 

conference 

Answe r Lo op " ) 
stime) < 40) 



# add barger netline to outbound 
add_conf (call , netline, LOGON) ; 

# add outbound netline to outbound 
add_conf (call , outline, LOGON) ; 
voslog ( "Barger Wait for Outbound 

while (timesub(date() , time(), sdate, 

# clear digit buffer 
sc_clrdigits (vpline) ; 
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supervision 
1) eq 1) 



disconnect 
eq T_MAXDT) 
"#") 

disconnect" ) 



IbS 

# check for call waiting request 
check_waiting (TALKER) ; 

# check for outbound answer 

if (substr (Sstatus( outline) , 10, 

voslog ( "Answer supervison" ) ; 
break ; 
end if 

# check for barger forced 
if (sc_getdigits (vpline, 1, 1, 1) 

if (sc_digits (vpline) streq 

voslog ( "Forced 

break ; 
endif 
endif 
endwhile 

# check for no outbound answer 
if (substr (Sstatus (outline) , 10, 1) eq 

# release barger 1 s voice mail 

release_outbound_call ( ) ; 
goto sel_loop; 
endif 

# ask outbound CALLOUT task vpline be 

allocated 

msg_put (mainpid, 
"O"&call&outline&subs) ; 

code = msg_get(3) ; 

if (substr (code, 1, 1) strneq "O" ) 

voslog ("ERROR: code n &code&" when 
allocating outbound vpline") ; 

call = ; 

# release barger' s voice mail 

call 

release. outbound_call ( ) ; 
goto sel_loop ; 
endif 



^\jpervision 
0) 

call 



# set outbound call active (to CALLOUT 
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substr(code, 2, 99) ) ; 

# set outbound call answered (to 

CALLOUT vpline) 

glb_set (CALLlANS+SUBSMAX*call+subs 
substr(code, 2, 99)) ; 

# act as if have barged in 
goto barge_loop ; 

else 

# restart elapsed time 
sdate = date() ; 

Z i "" _ ^-^tirne = time'(i~ ; " - - — 

endif 



T_MAXDT) 

<> 0) 
<> 0)) 



case "**: 

if (sc_getdigits (vpline, 1, 1, 1) e q 

if (sc_digits (vpline) streq M * n ) 
# check for a caller waiting 
if ( (glb_get (CALLlACT+subs) 



or (glb_get (CALL2ACT+subs) 
goto barge_in ; 

else 

v voslog( "sc_play (no call 

waiting (108) -vox") ; 



"PROlOS-vox 11 ) 



sc_play (vpline , 



endif 
endif 
endi f 

default: 

# restart elapsed time 
sdate = date ( ) ; 
stime = timet) ; 

endswitch 

# relmain in programming loop 
goto sel_loop ; 
endif 

# check to see if PIN entry matches barge in 

password 

if (pin_entry streq glb_get (BARGE_PIN+subs ) ) 

goto barge_in ; 
endif 
endwhile 
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# dropped out of PIN entry loop due to timeout 
voslog("sc_play (goodbye (039) -vox") ; 
sc_play (vpline, "PR0039 . vox" ) ; 

hangup ( ) ; 

chain ( "GETDID" , vpline) ; 
barge_in : 

# check for call number not set yet 

if (call streq "") a 

# call number not set ,._—=-=-...: _ . ....... _i -:~ 

# check for call #1 active 

if (glb_get (CALLlACT+subs) <> 0) 

# proceed to barge into call #1 
call = 0 ; 

else 

# check for caller #2 active 

if (glb_get (CALL2ACT+subs) <> 0) 

# proceed to barge into call #2 
call = 1 ; 

else 

voslog( "sc_play (no call 

waiting (108) .vox") ; 

sc_play (vpline, " PRO 10 8 .vox" ) ; 

V goto get_pin ; 

^ endif 

endif 

else 

# call number already set 

# check for both calls active 

if ( (glb_get (CALLlACT+subs) <> 0) 
and (glb_get(CALL2ACT+subs) <> 0),) 

# change to unselected call in case barger 

backed out 

# from selected call during earlxer 

monitor barge in 

voslog( "TEST: call switch from: "&call& 

to: "&modulo2 (call) ) ; 

call = modulo2 (call) ; 
endif 
endif 

# TEST - monitor barge function 

if (glb_get (CALLER_DID+subs) streq "6545786") 

# check for null forwarding number 
if (glb_get (FORWARD+subs) streq ■■) 

# shorten number of simulated rings 

# before caller is transfered to voice 

mail 
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J0% 



to caller 
request 
vpline) ; 



# set negative to indicate monitor barger 
glb_set (CALLlANS+SUBSMAX*call+subs, - 

endif 

# reset call waiting request 
glb_set (CALLWAIT+subs, nn ) ; 

# add our netline as listener to selected 
caller 's„ conferences^ -~ ^ ..... ^ r , ... — .<-• 

- - r , add^list (call , net line / LOGON) ; 

^ for (;;) 

# clear digit buffer 
sc_clrdigits (vpline) ; 

# delete our netline as listener 
del_list (call , netline, vpline, LOGOFF) ; 

# check for call waiting request 

# check_waiting (LISTENER) ; # net 

# del_list & add_list already being done 



effect 



for beep 



^ check_waiting (NOCONF) 



20) 



# play monitor mode beep to listener 
sc_playtone (vpline, 1000, 2000, -30, -30, 



# add our netline as listener 
add_list (call, netline, LOGOFF) 



# space monitor beeps every 5 seconds 
while looking for tone input 

if ((code = sc_getdigits (vpline, 1, 5, D) 

eq T_MAXDT) 

if ((code = sc_digits (vpline) ) streq 

" # " ) 

# delete our netline as listener 

to 

# selected caller's conference 
del_list (call , netline, vpline, 

LOGON) ; 

# restart elapsed time 
sdate = date() ; 
stime = time() ; 
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goto pin_loop ; 
endif 

# check for non-monitor barge request 

and caller active 

if ((code streq ■*") 
and 

(glb_get (CALLlACT+SUBSMAX*call+subs) <> 0)) 

break; 
endif 
endif 

— -endf ox. ■ ~ . - . ~~ ~*r — ~~ . ^.■:^^:^7\~z* r ~~ i . - . 

# delete our netline as listener to selected 
caller ' s conference 

del_list(call, netline, vpline, LOGON) ; 

endif 

# set one barger call active 

glb_set(BARGlSUB+SUBSMAX*call+subs, netline) ; 
glb_set (BARGlSUB+SUBSMAX*modulo2 (call) +subs , " " ) ; 

# set one barger call answered 
glb_set(BARGlANS+SUBSMAX*call+subs, vpline) ; 
glb_set (BARGlANS+SUBSMAX*modulo2 (call) +subs, " " ) ; 

# stop caller's forwarding 
s top_f orwarding (call, 0 ) ; 

# stop caller's voice mail 
stop_voiceitiail (call) ; 

# request answer supervision be returned to caller 
glb_set (CALLlANS+SUBSMAX*call+subs, vpline) ; 

# abort caller's possible sc_play in progress 
sc_abort (glb_get (CALLlACT+SUBSMAX*call+subs) ) ; 
voslog ( "sc_abort ( "&glb_get (CALLlACT+SUBSMAX*ca 

ll+subs)&") ") ; 

# add our vpline to conference 
add_conf (call, vpline, LOGOFF) ; 

# play joining conference tones 

sc_play tone (vpline, 1000; 2000,^ -30, -30, 100) ; 
vos log ( "sc_play tone (join conf)") ; 

# delete our vpline from conference 
del_conf (call, vpline, netline, LOGOFF) ; 

ted caller's conference 
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# reset call waiting request 
glb_set (CALLWAIT+subs , " " ) ; 

barge_loop: 

voslog( "Barger Conversation Loop") ; 

for (;;) 

# check for call waiting request 
check_wai ting (TALKER) ; 

# check for selected caller active 

z - : _ -if - (glb_geJ: (CALLlACT+SUBSMAX*cal 1+subs ) <> 0 ) - ~ 

# selected caller active 

# check for unselected caller inactive 
if 

<glb_get (CALLlACT+SUBSMAX*modulo2 (call) +subs) eq 0) 

# selected caller active/unselected 

caller inactive 
(call)+subs, "") 



# set unselected subscriber inactive 
glb_set (BARGlSUB+SUBSMAX*modulo2 



# check for three way conference 
if ( (glb_get(BARGlSUB+subs) eq 0) 

or (glb_get (BARG2SUB+subs) eq 0)) 

# three way conference not active 
y # release unselected caller's 

conference if unused 

rel_conf (modulo2 (call) ) ; 
endif 
endif 

else 

# selected caller inactive 

# check for unselected caller inactive 
if 

(glb_get (CALLlACT+SUBSMAX*modulo2 (call)+subs) eq 0) 

# both callers inactive 

# set both calls inactive but with 



barger active 



if unused 



glb_set (BARGlSUB+subs, 0) ; 
glb_set <BARG2SUB+subs, 0) ; 
# release selected caller's conference 



rel_conf (call) ; 

# release unselected caller's 
conference if unused 

rel_conf (modulo2 (call) ) ; 

else 

# selected call inactive/unselected 

call active 

# check for three way conference 
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if ( (glb_get (BARG1 SUB + subs) eq 0) 
or (glb_get (BARG2SUB+subs) eq 0)) 

# three way conference not active 

# do NOT set selected subscriber 



inactive here 
conference request") 



else 



inactive 
1+subs , " " ) ; 
conference if unused 



vos log ("TEST: Auto switch 

# switch to unselected ca ll 

~f iaih..-^' •••*'**" ; — - - " <- --' 
goto switch_conf ; 

# three way conference active 

# set selected subscriber 

glb_set (BARGlSUB+SUBSMAX*cal 

# release selected caller's 
rel_conf (call) ; 



voslog("TEST: Call "&call&' 
switched to become call "&modulo2 (call) ) ; 
V # switch to active (i.e. 

unselected) call 

call = modulo2 (call) ; 
endif 
endif 
endif 



T_MAXDT) 



# check for barger tone input 

sc_clrdigits (vpline) ; 

if ((code = sc_getdigits (vpline, 2, 3 



2)) eq 



request 



flash = sc_digits (vpline) ; 

# check for forced forwarding disconnect 

if (flash streq "#8") 

# stop forwarding even if answered 
stop_f orwarding (call , 1) ; 

endi f 

# check for forced voice mail request 
if (flash streq "#9") 

# check for caller active 
if 

(alb get (BARGlSUB+SUBSMAX*call+subs) strneq "") 
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announc emen t 



start_voicemail (call , 1 ) 



switch conf 



active 



endif 
endif 

# check for conference switch request 
if (flash streq "**«) 

# check for unselected call active 

# and for three way conference not 

if 

(Xglb_g.et_(JC^I^ 0) 

and^("(glb_get (BARGlSUB+subs) eq 0) ~ 
or (glb_get (BARG2SUB+subs) eq 0))) 
j_ . voslog( "Switch conference 

request* ) ; 

# reset call waiting request 
glb_set (CALLWAIT+subs , " " ) ; 

# delete our net line from 
selected caller 1 s conference 

del_conf (call , netline, vpline, 

LOGON) ; 

# set new selected caller 
call = modulo2 (call) ; 

# set selected barger call active 
glb_set (BARGlSUB+SUBSMAX*cal 

# set unselected barger call 

glb_set (BARG1SUB+SUBSMAX 
n ) ; 

# release unselected conference 
rel_conf (mcdulo2 (call) ) ; 

# stop selected call's forwarding 
stop_forwarding (call, 0) ; 

# (FUTURE PROGRAMMABLE OPTION) 

# stop selected call's voice mail 
stop_voicemail (call ) 

# request answer supervision be 
returned to selected caller 

glb_set (CALLlANS + SUBSMAX*cal 

1+subs, vpline) ; 



1+subs, netline) ; 
inactive 

*modulo2 (call) +subs # 
if unused 
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# set selected barger call 

answeired 

glb_set (BARGlANS+SUBSMAX*cal 

1+subs, vpline) ; 

# abort selected caller's 

possible sc_play in progress 

sc_abor t ( glb_ge t ( CALL1ACT 

+SUBSMAX*cal 1+subs) ) ; 

- _ .„ „ ;^;ypslog ( T , s.c_:abort-(;^&glb_g-gt.t ~ - 

(CALLlACT+SUBSMAX*call+subs)Vf") ; 

# add our vpline to conference 
add_conf (call, vpline, LOGOFF) ; 

# play joining conference tones 
sc_playtone( vpline, 1000, 2000, 

vos log ( "sc_play tone (join conf)") 

# delete our vpline from 
del_conf (call, vpline, netline, 

# add our netline to selected 



30, -30, 100) 



conference 
LOGOFF) ; 



caller ' s conference 

add_conf (call, netline, LOGON) ; 
endif 

endif , 

# check for conference switch request 

if (flash streq "#3") 

# check for both callers active 

# and for three way conference not 

active 

if 

( (glb_get (CALLlACT+SUBSMAX*cal 1+subs) <> 0) 

and 

(glb_get(CALLlACT+SUBSMAX*modulo2(call)+subs) <> 0) 

and ( (glb_get (BARGlSUB+subs) eq 0) 
or (glb_get (BARG2SUB+subs) eq 0) ) ) 
voslog( "Three way conference 

request") ; 

# reset call waiting request 
glb_set (CALLWAIT+subs , " " ) ; 

« rlol ot- o nncpl p>r- f- p>H caller's 
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del_conf (modulo2 (call ) , 
glb_get <CALLlNET+SUBSMAX*modulo2 (call) +subs) , 
glb_get (CALLlACT+SUBSMAX*modulo2 (call) +subs) , LOGON) ; 

# request answer supervision be 
returned to both callers 

glb_set <CALLlANS+SUBSMAX*cal 

1+subs, vpline) ; 

glb_se t ( CALL1ANS+SUBSMAX 
*modulo2 (call) +subs, vpline) ; 

^ _# stop unselected call's 

f brwafeding-— ~ A : — — — ^ -'- ::: ' : '-'-^" c — : ----- .r.™..; 

stop_f orwarding (modulo2 (call) , 0) 



# (FUTURE PROGRAMMABLE OPTION) 

# stop selected call's voice mail 
stop_voicemail (modulo2 (call) ) ; 

# get unselected caller's 

conference number 

conf = 

glb_get (CALLlCNF+SUBSMAX*modulo2 (call) +subs) ; 

# check for using active 

Specified conference 
^ if ((conf > 0) and (conf <= 

CONFMAX)) 

# check if conference still 

in use 

if 

( (glb_get (FWRDlSUB+SUBSMAX*modulo2 (call)+subs) eq 0) 

and 

(glb_get (FWRDlACT+SUBSMAX*modulo2 (call)+subs) eq 0) 

and 

(glb_get (MAILlACT+SUBSMAX*modulo2 (call) +subs) eq 0) ) 

# request conference 

deallocation 

msg_put (mainpid, 

"E M &conf) ; 

if ( ( code = msg_get ( 3 ) ) 

strneq "E-OK" ) 

voslog( "ERROR: code 
"&code&" when deallocating conference "&conf) ,- 

else 

voslog ( "Deallocating 

conference "&conf ) ; 

# set unselected 

caller's conference inactive 

glb_set (CALL1CN 



WO 96/09731 PCTAJS95/12318 

Ii5 

F+SUBSMAX*modulo2 (call)+subs, "") ; 

endif 
endif 

else 

voslog ( "ERROR: deallocating 

inactive conference") ; 

endif 

# set both barger calls active 
glb__set (BARGlSUB+subs, netline) ; 

# set both barger calls answered 
glb_set (BARGlANS+subs , vpline) ; 
glb_set (BARG2ANS+subs , vpline) ; 

# abort unselected caller's 

possible sc_play in progress 

sc_abort(glb_get (CALL1ACT 

+SUBSMAX*roodulo2 (call) +subs) ) ; 

voslog ( " sc_abort ( " &glb_get 
(CALLlACT+SUBSMAX*modulo2 (call) +subs) &" ) " ) ; 

# add our vpline to conference 
\ add conf (call, vpline, LOGOFF) ; 

# play joining conference tones 
sc_play tone (vpline, 1000, 2000, - 



30, -30, 100) 



voslog ( "sc_playtone ( join conf) " ) 

# delete our vpline from 
del_conf ( call , vpl ine , net 1 ine , 



conference 
LOGOFF) ; 

# add unselected caller's netline 

to selected caller ' s conference 

add_conf (call , 
g lb_get (CALLlNET+SUBSMAX*modulo2 (call ) +subs ) , LOGON) ; 

# check for unselected conference 

inactive 

if 

(alb get (CALLlCNF+SUBSMAX*modulo2 (call) +subs) strneq "") 
* — voslog ( "TEST: Deselected 

conference 

"&glb_get (CALLlCNF+SUBSMAX*modulo2 (call) +subs ) &" not 
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# update unselected caller's 
conference to selected caller's conference 

glb_set (CALL1CNF+SUBSMAX 

*modulo2 (call ) +subs , 

glb_get (CALLlCNF+SUBSMAX*call+subs) ) ; 

endif 
endif 
endif 

# check to see if barger is talking to anyone 

„ i f ( (gib get ( CALLlACT+subs ) eq 0) _ 

^ ^ - and Cgib_ge1T( cSL2ACT+subs ) eq 0) " ~~ 
and (glb_get (FWRDlACT+subs) eq 0) 
^ and (glb_get (FWRD2ACT+subs) eq 0)) 

# delete our vpline from our conference 
del_conf (call, vpline, netline, LOGOFF) ; 

# delete our netline from our conference 
del_conf (call, netline, vpline, LOGON) ; 

# drive netline receive from vpline 

transmit 

if ((code = Scon(netline, vpline, 
SSAS_PASS, SSAL_N0) ) <> 0) 

voslog ( "Scon ( n &netline& n , "&vpline&" ) 
\pode "&code&" error") ; 
KS else 

voslog ( "Scon ("&netline& M , "&vpline&") : 
"&Sstatus (netline) ) ; 

endi f 

# drive vpline receive from netline 

transmit 

if ((code = Scon(vpline, netline, 
SSAS_PASS, SSAL_N0) ) <> 0) 

voslog ( "Scon( "ScvplineSc" , "&netline&" ) 
code " &code&" error") ; 

else 

voslog ( "Scon ( M &vpline&" , "&netline&" ) : 
"&Sstatus (vpline) ) ; 

endi f 



present 



unused 



# set both calls inactive but with barger 

glb_set (BARGlSUB+subs, 0) ; 
glb_set (BARG2SUB+subs, 0) ; 

# release selected caller's conference if 
rel_conf (call) 
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# release unselected caller's conference 

if unused 

rel_conf (modulo2 ( cal 1 ) ) ; 

# set call number inactive 
call = mn ; 

if (pin_entry streq 
alb get ( PRGRM_PIN+subs ) ) 

. # go. bac k- -to- programing =-se 1 e c 1 1 pjn T 

loop 

goto sel_loop ; 

else 

# start PIN entry loop elapsed time 
sdate = dateO ; 

stime = time() ; 

# go back into PIN entry loop 
goto pin_loop ; 

endif 
endif 
endfor 

end 

# v 



onsignal 

voslog( "Onsignal" ) ; 

hangup ( ) ; 

chain ( "GETDID" , vpline) ; 

end 

f unc hangup ( ) 

# abort our multitasking calls in progress 

sc_abort (vpline) ; 

# wait for all our multitasking calls to finish 
for (code = 1; (sc_stat (vpline) <> 0) and (code <- 

20) ; code++) 

sleep (5) ; 
endfor 

if (sc_s tat (vpline) <> 0) , r 

voslog( "ERROR: 10 seconds on vplxne &vpline& 

without idle status") ; 
endif 

# put vpline onhook . 

// — Ac = onhook (vol me) ) <> T_ONH) 
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vpline "ScvplineSt" onhook") ; 
sleep (10) ; 
endwhile 

voslog ( "sc_onhook( "{cvplinei" ) n ) ; 

# delete barger vpline from our conference 
del_conf (call, vpline, netline, LOGOFF) ; 

# delete barger netline from our conference 
del_conf (call, netline, vpline, LOGON) ; 

# remove vpline receive from netline transmit 

— . if\^U.code_ = Sbrfe( vpline, - netline, SSAS^0NH00K> 

SSAL_NQ4 ) <> 0) 

voslog( n Sbrk( n &vpline&", "{cnetlinefc") code 
"&code&" error") ; 
else 

voslog ( M Sbrk( "ivplineSc" , "&netline& n ) : 
"&Sstatus (vpline) ) ; 
endif 

if ( (netline >= NETBGN) and (netline <= NETEND) ) 

# remove netline receive from vpline transmit 

# and enable netline SS96 alerting 

if ((code = Sbrk(netline, vpline, SSAS_0NH00K, 
SSAL_YES) ) <> 0) 

voslog ( "Sbrk( "tnetlineSc" , "&vpline& tt ) code 
code&" error") ; 
else 

voslog ( "Sbrk( "Scnetlinefc" , "ivplinei" ) : 
"&Sstatus (netline) ) ; 
endif 

else 

# remove netline receive from vpline transmit 

# and disable netline SS96 alerting 

if ((code = Sbrk(netline, vpline, SSAS_ONHOOK, 
SSAL_N0) ) <> 0) , 

voslog ( "Sbrk( n &netline&" , "&vpline& n ) code 
" &code& M error " ) ; 

else 

voslog ( w Sbrk( " &netline& " , "&vpline& M ) : 
M &Sstatus (netline) ) ; 
endif 
endif 

# release netline/vpline allocations 
dealloc() ; 

# set both barger calls inactive 
glb_se t ( BARGlSUB+subs , M " ) ; 
glb_set (BARG2SUB+subs, " n ) ; 
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# release our conference if unused 
rel_conf (call) ; 

# set task debug screen status 
scr_stat("Idle") ; 

endfunc 

func deallocO 

if (netline strneq "") 

# release- netl-ine/vpline allocations 
msg_put (mainpid. "D"&netline&vpline) ; 
if ((code = msg_get(3)) strneq "D-OK") 
voslog( "ERROR: code "&code&" when 
deallocating netline "&netline) ; 
endif 
endif 
endfunc 

func check_waiting (sconf ) 

# check for call waiting request 
if (glb_get(CALLWAIT+subs) <> 0) 

if (sconf eq TALKER) 

# delete our netline as talker from 

conference 

x del_conf (call, netline, vpline, LOGOFF) ; 

else 

if (sconf eq LISTENER) 

# delete our netline as listener from 

conference 

del_list (call, netline, vpline, 

LOGOFF) ; " 

endif 
endif 

# check for priority call waiting request 
if (glb_get(CALLWAIT+subs) < 0) 

voslog ( "sc_play( 'urgent call waiting 

tones' (1304) .vox) " ) ; 

sc_play (vpline, "PR1304 . vox" ) ; # two tones 
sc_play (vpline, "PR1304 . Vox" ) ;# two tones 

else 

voslog ( "sc_play( 'call waiting 
tones' (1305) .vox) ") ; 

sc_p lay (vpline, "PR1305 . vox" ) ; # three 

tones 

endif 

if (sconf eq TALKER) 

# add our netline as talker to conference 
add_conf (call, netline. LOGOFF) ; 
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# add our netline as listener to 

conference 

add_list (call, netline, LOGOFF) ; 
endif 
endif 

# reset call waiting request 
glb_set (CALLWAIT+subs , n " ) ; 

endif 
endfunc 

func release_outbound_call ( ) 

"*i check for ^outbound call active ^- — 

if (call strneq an ) 

voslog( "release_outbound_call ( ) " ) ; 

# delete barger vpline from outbound conference 
del_conf (call, vpline, netline, LOGOFF) ; 

# delete barger netline from outbound 
conference 

del_conf (call, netline, vpline, LOGON) ; 

# delete outbound netline from conference (no 

vpline) 

del_conf (call, outline, 0, LOGON); 

' x # set outbound conference inactive (but leave 

number usable) 

glb_set (CALLlCNF+SUBSMAX*call+subs , 
"+"&glb_get (CALLlCNF+SUBSMAX*call+subs) ) ; 

# set outbound netline inactive 
glb_set (CALLlNET+SUBSMAX*call+subs, " ".) ; 

# set outbound answer supervision inactive 
glb_set (CALLlANS+SUBSMAX*call+subs, " " ) ; 

# set outbound caller inactive (do last) 
glb_set <CALLlACT+SUBSMAX*call+subs, " " ) ; 

if ((outline >= NETBGN) and (outline <= 

NETEND) ) 

# remove outline receive from vpline 

transmit 

# and enable outline SS96 alerting 
if ((code = Sbrk( out line, vpline, 

SSAS_ONHOOK, SSAL_YES) ) <> 0) 

voslog( -SbrkCJcOUtlineSc" , w ^cvpline& ,, ) 
code "Sccodefic" error") ; 

else 
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voslog ( "Sbrk ( "&outline&" , "&vpline&" ) : 
"fcSstatus (outline) ) ; 

endif 

else 

# remove' outline receive from vpline 

transmit 

# and disable outline SS96 alerting 
if ((code = Sbrk(outline, vpline, 

SSAS_ONHOOK, SSAL_N0) ) <> 0) 

voslog ( " Sbrk ( " fcoutlinefc " , " &vpline& " ) 
code " fccodeSc " error " ) ~; - = t :_~z^ .. .v. : - . - - 

else 

voslog ( "Sbrk ( "&outline&" , "&vpline&" ) : 
"fcSstatus (outline) ) ; 

endif 
endif 

# release outline allocation (no vpline) 
msg_put (mainpid, "D"&outline&0) ; 
if ((code = msg_get(3)) strneq "D-OK") 
voslog ("ERROR: code "&code&" when 
deallocating outline "&outline) ; 
endif 



V 



# release outbound conference if unused 
x rel_conf (call) ; 



# set outbound call inactive 
call = "" ; 
endif 
endfunc 

func stop_f orwarding(scall, sforce) 

# check for not forced stop request 

# and for forwarding answered 

# and for not "transparent" forwarding mode 
if ( (sforce eq 0) 

and (glb_get(FWRDlANS+SUBSMAX*scall+subs) <> 0) 
and (glb_get (FORWARD+subs) strneq 
glb_get (CALLER_DID+subs) ) ) 
return; 
endif 

sem_set (SEM_FWRD+subs) ; 

# check for forwarding active 

if (glb_get (FWRDlACT+SUBSMAX*scall+subs ) <> 0) 
voslog ( " stop_f orwarding ( ) " ) ; 
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del_conf (scall, 
glb_get (FWRDlNET+SUBSMAX*scall+subs ) , 
glb_get (FWRDlACT+SUBSMAX*scall+subs) , LOGON) ; 

# set call answered so forward task marks 
itself inactive and stopped 

glb_set (FWRDlANS+SUBSMAX*call+subs, vpline) ; 

# abort forwarding task 

sc_hangup (glb_get (FWRDlACT+SUBSMAX*scall+subs) ) 

voslog( "sc_hangup( "&glb_get (FWRD1ACT+SUBSM 
" A^sc^l+subs)^^ „ - ~ ~~ ; 

# set forwarding task inactive and stopped 
g lb_s e t ( FWRD1 ACT+ SUBSMAX * s ca 1 1 + subs , 0 ) ; 

endif 

sem_clear ( SEM_FWRD+subs ) ; 
endf unc 

func start_voicemail (scall, smsg) 
# check for voice mail active 

if (glb_get (MAILlACT+SUBSMAX*scall+subs) eq 0) 

# request voice mail vpline task be started 
iasg_put (mainpid, "V&scall&subs) ; 

v N code = msg_get(3) ; 

^ if (substr (code, 1, 1) strneq "V") 

voslog( "ERROR: code "&code&" when 
allocating voice mail vpline") ; 
else 

# set voice mail task active 
glb_set <MAILlACT+SUBSMAX*scall+subs, 
subs t r ( code ,2,99)); 

if (smsg <> 0) 

# add our vpline to conference 
add_conf (scall, vpline, LOGOFF) ; 



message 

mail ' (030) .vox) M ) 



# play connecting call to voice mail 
voslog ( "sc_ play ( 1 to voice 
sc_play (vpline, "PR0030 . vox" ) ; 



# delete our vpline from conference 
del_conf (scall , vpline, netline, 



LOGOFF) ; 

endif 
endif 
endif 
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endfunc 

func stop_voic email (scall) 

sem_se t ( SEM_MAIL+subs ) ; 

# check for voice mail active 

if (glb_get(MAILlACT+SUBSMAX*scall+subs) <> 0) 
voslog ( " stop_voicemail ( ) " ) ; 

.- delete~voice -mail netlitt-€-^2?©m.JCaller. , '-s 

conference 

del_conf ( scall , 
g lb_get (MAILlNET+SUBSMAX*scall+subs) , 
g lb_get (MAILlACT+SUBSMAX*scall+subs) , LOGON) ; 

# abort voice mail task 

sc_hangup(glb_get (MAILlACT+SUBSMAX*scall+subs) ) 

voslog ( " sc_hangup ( " &glb_get (MAIL1ACT+SUBSM 
AX*scall+subs)&") n ) ; 

# set voice mail task inactive and stopped 
glb_set-(MAILlACT+SUBSMAX*scall+subs, 0) ; 

\ endif 

" x sem_c 1 ear (SEM_MAIL+ subs) ; 
endfunc 

func modulo2 (scall) 

return ( (scall+1) - (scall+1) /2*2) ; 

endfunc 

include "conf subs . inc" # conferencing 

subroutines 



# 

# CALLIN.VS - D121 line task 

# Designed to work in concert with GETDID.VS 
# 

# 



dec 

include "datmod.inc" # SS96 library 

definitions . n 

include "global. inc" # define global variable 
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var 


code : 1 6 ; 


# 


return value from function 


calls 






var 


vpline:3 ; 




# voice processing line 


number 






var 


netlme:3 ; 




# network line number 


var 


conf ; 3 ; 


XL 
# 


conference number 


var 


subs : 3 ; 




subscriber number 


var 


call: 3 ; 


# 


call number 


var 


mainpid:3 ; 




# main task PID 


var 


sdate : 7 ; 


# 


call starting date 


var 


stime:7 ; 


t 


call starting time 


var 


etime:7 ; _ 


t 


call elapsed time 


- var 


cal 1 1 ime^7^"-; J 




r call elapsed tim£ ~ 


var 


nulltime : 7 ; 


# 


null forward number elapsed 


time 








var 


pin_entry:10 ; 




# barger PIN entry 


var 


stats: 16 ; 




# beginning net line 


status (confsubs) 






var 


line: 3 ; 


# 


needed for scr_stat 



end 



program 

# Initializations 

mainpid = glb_get (MAINPID) ; 

\ 

" A vpline = arg() ; 

if ( (vpline < GDIDBGN) or (vpline > GDIDEND) ) 

voslog( "ERROR: invalid vpline number "&vpline&" 
message received" ) ; 

hangup ( ) ; 
r chain ( "GETDID" , vpline) ; 
endif 

line = vpline ; # debug only 

# Begin call processing 

# enable hang up jump to onsignal 
sc_use (vpline) ; 

# set call number inactive (in case of unexpected 
disconnect) 

call = " M ; 

# do not allow disconnects to run onsignal 
sc_watch (vpline, "+-", 1) ; 

while (length (net line =■ msg_get(3)) eq 0) 
endwhile 

if ( (netline < NETBGN) or (netline > NETEND) ) 

if ((netline < ALTBGN) or (netline > ALT END) ) 
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as 

voslog ( "ERROR: invalid netline number 
"&netline&" message received") ; 

hangup ( ) ; 

chain ( "GETDID" , vpline) ; 
endif 
endif 

while (length (subs = msg_get(3)) eq 0) 
endwhile 

if ((subs < 0) or (subs >= SUBSMAX) ) 

voslog (" ERROR.: invalid 5 subscriber >nvunben^=- _ 

"&subs&" message received") ; 
hangup ( ) ; 

chain ( "GETDID" , vpline) ; 
endif 

# set task debug screen status 
scr_stat ( "I-"&netline) ; 

# for testing - do not disconnect when changing 

BARGER into CALL IN 

if (glb_get (CALLER_DID+subs) strneq "6545786") 

# check for caller disconnect (preceding answer 
supervison return = no "ringing") 

v if (sc_stat (vpline, 8) eq 1) 

voslog ("Disconnect - ringing drop") ; 

hangup ( ) ; 

chain ( " GETDID " , vpl ine ) ; 
endif 
endif 

# set our call number (GETDID checked, for all calls 
active) 

if (glb_get(CALLlACT+subs) eq 0) 

# call #1 inactive - so this becomes call #1 
call = 0 ; 

else 

if (glb_get(CALL2ACT+subs) eq 0) 

# call #2 inactive - so this becomes call 



#2 



call #3 



call = 1 ; 

else 

if (glb_get (CALL3ACT+subs) eq 0) 

# call #3 inactive - so this becomes 

call = 2 ; 

else 

if (glb_get (CALL4ACT+subs) eq 0) 
# call #4 inactive - so this 
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else 

voslog( "ERROR: No inbound calls 

available") ; 

play_reorder ( " " ) ; 
hangup ( ) ; 

chain ( " GETDID " , vpl ine ) ; 
endif 
endif 
endif 
endif 

# set caller active 
- glb^set (CALt^ef ^ 

# ask conference be allocated 
ttisg_put (mainpid, "C") ; 

if ((code = msg_get(3)) strneq "C-OK") 

voslog( "ERROR: code "&code&" when allocating 
conference") ; 

play_reorder ( " " ) ; 
hangup ( ) ; 

chain ( "GETDID" , vpl ine) ; 
endif 

# get allocated conference number 
while (length(conf = msg_get (3 ) ) eq 0) 

^ endwhile 
> if ((conf < 1) or (conf > CONFMAX) ) 

voslog( "ERROR: invalid conference number 
" &conf & " message " ) ; 

play_reorder ( " " ) ; 

hangup ( ) ; 

chain ( "GETDID" , vpline) ; 
endif 

voslog ( "Allocating conference "&conf) ; 



# set conference number 

glb_set (CALLlCNF+SUBSMAX*call+subs / conf) ; 

# set caller netline 

glb_set (CALLlNET+SUBSMAX*call+subs, netline) ; 

# set answer supervision inactive 
glb_set (CALLlANS+SUBSMAX*call + subs # " " ) ; 

if (call < BARGMAX) 

# set barger answered inactive 

glb_set <BARGlANS+SUBSMAX*call+subs, " " ) ; 

endif 
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if (call < FWRDMAX) 

# set forwarding inactive (not started) 
glb_set (FWRDlACT+SUBSMAX*call+subs, "") ; 

# set forwarding answered inactive 
glb_set(FWRDlANS+SUBSMAX*call+subs, " " ) ; 

# set forwarding netline inactive 
glb_set (FWRDlNET+SUBSMAX*call+subs , " " ) ; 

;.. .. # ~ se t- forwarding, call . progress, inactive^. 
glb_set (FWRDlCPA+SUBSMAX*call+subs , " " ) ; 

endif 

if (call < MAILMAX) 

# set voice mail inactive (not started) 
glb_set (MAILlACT+SUBSMAX*call+subs , " " ) ; 

# set voice mail netline inactive 
glb_set(MAILlNET+SUBSMAX*call+subs, "") ; 

endif 

# now allow disconnects to nan onsignal 
sc_watch (vpline, "d+-", 1) ; 

# return answer supervision . m n „„„. 
while ((code = setoff hook (vpline) ) <> T_OFFH) 

voslog( "ERROR: code "&code&" while takxng 
vpline -&vpline&" off hook") ; 
sleep (10) ; 
endwhile 

voslog ( "Answer supervision") ; 

# clear digit buffer 
sc_clrdigits (vpline) ; 

# check for transparent forwarding 
if (glb_get (FORWARD+subs) streq 

glb_get ( C ALLER_D I D + s ubs ) ) 

# start paging task 
start_paging() ; 
goto short_cut ; 
endif 

# play ringing message (allows tone interruption) 
voslog ("sc_play ('ringing' (PR0001) yox) " ) ; 

if ((code = sc_play (vpline, " PR0001 . vox" ) ) eq 

T TERMDT) # % . . , 

_ if ((code = check_entry ( ) ) eq 1) 
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if (code eq 2) 

# TEST - reverse action of '0 1 for Ron 

Brooks DID 

if (glb_get (CALLER_DID+subs ) streq 

"6545786") 

goto s tart_page ; 

else 

goto short_cut ; 
endif 
endif 
endif 

, ~# -TEST -.. reversV-action"-6"f- ' 0' for -Ron Brooks DID 
if (glb_get (CALLER_DID+subs) streq "6545786") 

; goto short_cut ; 
endif 

start_page: 

# start paging task 
start_paging() ; 

# check for no early barger active 
if ( (call >= BARGMAX) or 

(glb_get <BARGlSUB+SUBSMAX*call+subs) eq 0)) 

# play 'reached Accessline for' message 

\- voslog( "sc_play ( 'Accessline' (PR0601) .vox) " ) ; 
if ((code = sc_play (vpline, "PR0601 .vox" ) ) eq 

T.TERMDT) 

# check for termination by caller 
if ((code = check_entry ( ) ) eq* 1) 

goto voice_mail ; 
endif 

if (code eq 2) y 

goto short_cut ; 
endif 
endif 
endif 



# check for no early barger active 
if ((call >= BARGMAX) or 
(glb_get (BARGlSUB+SUBSMAX*call+subs) eq 0)) 
# play subscriber's name message 
voslog ( "sc play ( ' subscriber 
name ' ( "&glb_get (CALLER_DID+subs) &" ) .nam) " ) ; 

if ( (code = sc., play (vpline, 
glb_get (CALLER_DID+subs ) &" . nam" ) ) eq T_TERMDT) 

# check for termination by caller 
if ((code = check_entry ( ) ) eq 1) 

goto voice_mail ; 
endif 
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if (code eq 2) 

goto short_cut 
endif 
endif 
endi f 



# check for no early barger active 
if ((call >= BARGMAX) or 
(glb_get (BARGlSUB+SUBSMAX*call+subs) eq 0)) 

# play 'if busy or unanswered' message 
•"- voslog(""sc^play( 'if unanswered '.(DO 08 ) >vox) " ) ; 

if ((code = sc_play(vpline, "D008 . vox" ) ) eq 

T_TERMDT) 

# check for termination by caller 
if ((code = check_entry ( ) ) eq 1) 

goto voice_mail ; 
endif 
endif 
endif 



short_cut: 

# check for no early barger active (barger s 
sc_abort will stop 

# playing message, but will not stop these tasks 
fcrom being started) 

K> if ((call >= BARGMAX) or 
(glb_get(BARGlSUB+SUBSMAX*call+subs) eq 0)) 

# check for npt null forwarding number 
if (glb_get(FORWARD+subs) strneq "") 

# check for existance of subscriber 

forwarding task 

if (call < FWRDMAX) 

# start forwarding 

start_f orwarding (call) ; , 

else 

voice_mail : 

# start voice mail without 

announcement 

start_voicemail (call, 0) ; 
endif 
endif 
endif 

# 



# add caller net line to our conference 
add_conf (call, netline, LOGON) ; 



WO96/09731 

o 



PCTAJS95/12318 



elapsing 

14)) 
request 



/3& 

# start call elapsed time 
sdate = date ( ) ; 
stime = time() ; 
call time = -1 ; 

for (;;) 

# compute call elapsed time 

etime = timesub (date ( ) , time(), sdate, stime) ; 

# check for forwarded call 
if (call < FWRDMAX) 

# check for barger active 
# - or forwarding subscriber" answer 
if ( (glb_get (BARGlSUB+subs) strneq nn ) 
or (glb_get (BARG2SUB+subs) strneq tt n ) 
or (glb_get (FWRDlSUB+subs) <> 0) 
or (glb_get (FWRD2SUB+subs) <> 0)) 

# check timeouts only once per time 



if (etime <> calltime) 
calltime = etiitie ; 
if ((etime eq 2) or (etime eq 

# set call waiting notify 

glb_set (CALLWAIT+subs , 



«ietline) ; 

endif 
endif 
endif 
endif 

■ : v # check for null forwarding n\imber 
if (glb_get (FORWARD+subs) streq S tt ) 

# check timeouts only once per time 

elapsing 

if (etime <> null time) 
null time = etime ; 
if (etime eq 18) 

# leave wait for answer loop 

after third ring 

break ; 
endif 

if (etime eq 14) 

# reduce apparent delay by 

starting voice mail 

# without announcement while 

simulated rings 

# are still being played 

s tar t_voicemail (call, 0) ; 
endif 
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(PR0001) .vox)") 

conference 
LOGOFF) ; 



13 1 



if ( (etime eq 4) or (etime eq 10) 
or (etime eq 16) ) 

# play three rings 

# add our vpline to conference 
add_conf (call, vpline, LOGOFF) 

# play ringing message 
voslog ( " sc_play ( ' ringing ■ 

sc_play (vpline, "PR0001 . vox" ) ; 

# delete our vpline from 
del_conf (call, vpline, netline, 



endif 
endif 
endif 

# check for return answer supervision request 
if (glb_get (CALLlANS+SUBSMAX*call+subs) <> 0) 

voslog ( "Answer supervison return") ; 
V break ; 

: > endif 
endf or 

# check for null forwarding number 

# and no answer supervision return request (except 
from monitor barger) 

# (negative answer supervision request indicates 
set by monitor barger) 

if ( (glb_get (FORWARD* subs) streq " " ) 

and (glb_get (CALLlANS+SUBSMAX*call+subs) <= 0) ) 

# start voice mail without announcement 

# (may have already been started above) 
start_voicemail (call, 0) ; 

# add our vpline to conference 
add_conf (call, vpline, LOGOFF) ; 

# play 'one moment please' message 

voslog ( tt sc_play ( 1 one moment' (PR0720) .vox)**) ; 
sc_play (vpline, *PR0720 . vox" ) ; 

# delete our vpline from conference 
del_conf (call, vpline, netline, LOGOFF) ; 

endif 
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sdate = 



voslog( "Caller Conversation Loop") ; 
for (;;) 

# check for not transparent forwarding 
if (glb_get (FORWARD+subs) strneq 
glb_get (CALLER_DID+subs) ) 

# check for barger not having answered 

# and subscriber not active on forward leg 

# and callers not in same conference 

# and forwarding inactive after having 
answered . ----- '*■- 

# and voice mail not having run 
if ( ( (call >= BARGMAX) or 

(glb_get (BARGlANS+SUBSMAX*call+subs) eq 0)) 

and ((call >= FWRDMAX) or 
(glb_get (FWRDlSUB+subs) eq 0) ) 

and ((call >= FWRDMAX) or 
(glb_get (FWRD2SUB+subs) eq 0)) 

and ((call >= BARGMAX) or 
(glb_get (CALLlCNF+SUBSMAX*call+subs) <> 
glb_get (CALLlCNF+SUBSMAX*modulo2 (call) +subs) ) ) 

and ( (call >= FWRDMAX) or 
(glb_get (FWRDlACT+SUBSMAX*call+subs) eq 0)) 
and ((call >= FWRDMAX) or 
Jglb_get (FWRDlANS+SUBSMAX*call+subs) <> 0)) 

and ((call < MAILMAX) and 
(glb_get (MAILlACT+SUBSMAX*call+subs) streq n n ) ) ) 

if (sdate streq " " ) 

# save the time when this 

condition begins 

sdate = date ( ) ; 
stime = time() ; 

i else 

# compute condition existed time 
in even sees for compares 

etime = timesub (date ( ) , time ( ) , 

sdate, stime) /2*2 ; 



: M &etime) 



voslog ( "Elapsed waiting time 



t ime e 1 aps ing 



no barger active 



# check timeouts only once per 

if (etime <> calltime) 
calltime = etime ; 

# after first 10 seconds 

# and last possible check for 

if ((etime eq 10) 

and ( (call >= BARGMAX) or 
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(glb_get (BARGlSUB+SUBSMAX*call+subs) eq 0))) 

# delete our netline 



from conference 
vpline, LOGOFF) ; 

message 

stand by' (032) .vox) " ) 
"PR0032 .vox") ; 



. del_conf (call, netline, 

# play 'please stand by 1 
voslog ( " sc_play ( ' please 

— -sc^play ( vpline , 

# add our netline to 
add_conf (call, netline, 

endif 

# after first 10 sees and 

# and last possible check for 
if (((etime - etime/30*30) eq 



conference 
LOGOFF) ; 

every 30 sees thereafter 
no barger active 
10) 

\ and ((call >= BARGMAX) or 

{&lb_get (BARGlSUB+SUBSMAX*call+subs) eq 0) ) ) 

# delete our netline 

from conference 

del_conf (call, netlxne, 

vpline, LOGOFF) ; 

# play 'press *9 to 

connect to message center' message 

voslog ( " sc_play ( • to 

leave message' (687) .vox) " ) 



"PR0687 .vox" ) 

conference 
LOGOFF) ; 



sc_play (vpline , 

# add our netline to 
add_conf (call, netline, 



endif 
endif 
endif 
endif 

# check for caller tone input 

code = sc_getdigits (vpline, 2, 3, 2) 
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if (sc_digits (vpline) streq " *9") 

# check for forwarding already 

if ( (call < FWRDMAX) 

and (glb_get (FWRDlSUB+subs) eq 0) 

and (glb_get (FWRD2SUB+subs) eq 

stop_f orwarding (call , 0) ; 
endif 

# start voice mail with 

_ star t_voic email (call, 1) ; 
endif 
endif 



# clear digits buffer 
sc_clrdigits (vpline) ; 
endif 

# check for barger inactive 

# and forwarding inactive 

# and barger having answered 

# and voice mail having run 
if ( ( (call >= BARGMAX) or 

(glb_get (BARGlSUB+subs) streq " " ) ) 
and ((call >= BARGMAX) or 
\iglb__get (BARG2SUB+subs) streq " " ) ) 
^ and ( (call >= FWRDMAX) or 

(glb_get (FWRDlACT+s\ibs) eq 0)) 

and ( (call >= FWRDMAX) or 
(glb_get (FWRD2ACT+subs) eq 0)) 

and ( (call >= BARGMAX) or 
(glb_jget (BARGlANS+SUBSMAX*call+subs) <> 0)) 

and ( (call >= MAILMAX) or 
(glb_get (MAILlACT+SUBSMAX*call+subs) streq 0) ) ) 
hangup ( ) ; 

chain ( "GETDID" , vpline) ; 
endi f 
endfor 

end 



onsignal 

voslog ( "Onsignal " ) ; 
hangup ( ) ; 

chain ("GETDID" , vpline) ; 

end 



f unc hangup ( ) 

# abort our multitasking calls in progress 
sc_abort (vpline) ; 
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# wait for all our multitasking calls to finish 
for (code = 1; (sc_stat (vpline) <> 0) and (code <= 

20) ; code++) 

sleep (5) ; 
endfbr 

if (sc_stat (vpline) <> 0) 

voslog( "ERROR: 10 seconds on vpline n &vpline&" 
without idle status") ; 
endif 

# put vpline onhook 

while ((code = sc_onhook (vpline) ) <> T_0NH) 

voslog( "ERROR: code "&code&" while putting 
vpline "&vpline&" onhook") ; 
sleep (10) ; 
endwhile 

voslog ( " sc_onhook ( " &vpline& " ) " ) ; 

# stop caller's forwarding 
stop_f orwarding(call, 0) ; 

# stop caller's voice mail 
stop__voicemail (call) ; 



# delete vpline from our conference 
del_conf (call, vpline, netline, LOGOFF) ; 

# delete netline from our conference 
del_conf (call, netline, vpline, LOGON) ; 

# check for active call 
if (call strneq "") 

# set our conference inactive (but leave number 

usable) 

glb_set (CALLlCNF+SUBSMAX*call+subs, " + "&conf) ; 
endif 

# remove vpline receive from netline transmit 
if ((code = Sbrk(vpline, netline, SSAS_ONHOOK, 

SSAL_NO) ) <> 0) 

voslog ( "Sbrk( "&vpline&" , "&netline&") code 

" &code& " error " ) ; 
else 

voslog ( "Sbrk( "&vpline&" , "&netline&" ) : 
"ficSstatus (vpline) ) ; 
endif 

# remove netline receive from vpline transmit 

# anrl pnable netline SS96 alerting 
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voslog( w Sbrk( n &netline&" , "&vpline£t n ) code 
" &code& M error " ) ; 
else 

voslog( n Sbrk( w &netline&" , "ScvplineSc 11 ) : 
M &Sstatus (netline) ) ; 
endif 

# release netline/vpline allocations 
dealloc() ; 

#check for active call 
if (call strxieq "?Jl 

- ■-#— set callerlietline inactive" - - — — 

glb_set (CALLlNET+SUBSMAX*call+subs , " * ) ; 

# set answer supervision inactive 
glb_set (CALLlANS+SUBSMAX*call+subs , " M ) ; 

# set caller inactive (do last) 
glb_set (CALLlACT+SUBSMAX*call+subs, " n ) ; 

endif 

# release our conference if unused 
rel_conf (call) ; 

# set task debug screen status 
scr_stat ( "Idle") ; 

fendfunc 

f unc dealloc ( ) 

# release netlinevpline allocations 
riisg__put (mainpid, "D'&netline&vpline) ; 
if ((code = msg_get (3) ) strneq "D-OR" ) 

voslog( "ERROR: code M &code& w when deallocating 
netlihe "&netline) ; 

endif 
endfunc 

f unc check__entry ( ) 

# check for any DTMF 

if ((code = sc_getdigits (vpline, 1,1, 1)) eq 
T_MAXDT ) 

# check for direct to voicemail request 
pin_entry = sc_digits (vpline) ; 

voslog ( -Caller entry: "&pin_entry ) ; 
if (pin_entry streq n #") 

# play 'one moment please* message 
voslog ( " sc_play ( 1 one 
moment' (PR0720) .vox)") ; 
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request 



sc_play(vpline, "PR0720 . vox" ) ; 

# indicate direct voicemail transfer 

return 1 ; 
endif 

if (pin_entry streq "0") 

# indicate short cut messages request 
return 2 ; 

endif 

. - # : use '*'• in place -b-f- "null" barge~rin code - 

if ((code = glb_get(BARGE_PIN+subs) ) streq "") 

code = "*" ; 
endif 

goto pin_check; 

while (sc_getdigits(vpline, 1, 3, 3) <> T_TIME) 

# add digit to PIN entry string 
pin_entry = pin_entry&sc_digits (vpline) ; 

pin_check: 

if ( (pin_entry streq code) 
or (pin_entry streq 

gib get (PRGRM_PIN+ subs) ) ) 

# request conference deallocation 
\ msg_put (mainpid, 

-i-&glb get(CALLlCNF+SUBSMAX*call+subs) ) ; 
* 9 - y if ((code = msg_get(3)) strneq "E-OK") 

voslog( "ERROR: code "&code&" when 
deallocating conference 

«&glb_get(CALLlCNF+SUBSMAX*call+subs) ) ; 

else 

voslog( "Deallocating conference 
"&glb_get (CALLlCNF+SUBSMAX*call+subs) ) ; 

endif 

# set conference inactive 

gib set(CALLlCNF+SUBSMAX*call+subs / 



) ; 



") 



# set caller netline inactive 
glb_set (CALLlNET+SUBSMAX*call+subs , 



# set answer supervision inactive 
glb_set (CALLlANS+SUBSMAX*call+subs , 



# set caller inactive (do last) 
glb_set (CALLlACT+SUBSMAX*call+subs , 
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msg_put (getpid( ) , netline) ; 

# send subscriber number to BARGER 
msg_put (getpid( ) , subs) ; 

# send pin entry string to BARGER 
msg_put (getpid ( ) , pin_entry) ; 

# replace ourself with BARGER 
chain ( "BARGER" , vpline) ; 

endif 
endwhile 
endif 
return 0; 
endfunc 

f unc play_reorder ( scall ) 

fcvdelete our netline from caller's conference 
del_conf (scall, netline, vpline, LOGOFF) ; 

voslog ( "sc_play tone (reorder) H ) ; 

# play reorder tones for 20 seconds 
for (code = 1; code <= 40; code++) 

sc_play tone (vpline, 480, 620, -24, -24, 30) ; 

# delay between tones 
sleep (2) ; 

endfor 

v, s # add our netline to caller's conference 
^\ add_conf (scall, netline, LOGOFF) ; 
endfunc 

f unc start_paging ( ) ; 

# check for null paging number 

if (glb_get (PAGER+subs) strneq " " ) 

# request paging vpline task be, started 
msg_put (mainpid, "P"&subs) ; 

code = msg_get(3) ; 

if (substr (code, 1, 1) strneq "P") 

voslog ( "ERROR: code "&code&" when 
allocating paging vpline") ; 
endif 
endif 
endfunc 

func start_f orwarding (scall ) 

if (scall < FWRDMAX) 

voslog ( M star t_f orwarding ( ) " ) ; 

# request forwarding vpline task be started 
msg_put (mainpid, "F"&scall&subs) ; 

code = msg_get ( 3 ) ; 
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if (substr (code, 1, 1) streq "F") 

# set forwarding task active 
glb_set ( FWRD1ACT+SUBSMAX* seal 1+ subs, 

substr(code, 2, 99)) ; 
else 

vos log ( " ERROR : code "&code&" when 
allocating forwarding vpline") ; 

# delete our netline from conference 
del_conf (scall, netline, vpline, LOGOFF) 



play_reorder (scall) ; 

# add our netline to conference 
add_conf (scall, netline, LOGOFF) ; 

hangup ( ) ; 

chain ( "GETDID" , vpline) ; 
endif 
endif 
endfunc 

func stop_f orwarding (scall, sforce) 

# check for not forced stop request 
^> # and for forwarding answered 

# and for not "transparent" forwarding mode 
if ((sforce eq 0) 

and (glb_get(FWRDlANS+SUBSMAX*scall+subs) <> 0) 
and (glb_get(FORWARD+subs) strneq 
glb_get ( CALLER_DID+ subs ) ) ) 
return; 
endif 

sem_set (SEM_FWRD+subs) ; 

# check for forwarding active 

if (glb_get (FWRDlACT+SUBSMAX*scall+subs) <> 0) 
voslog ( " s top_f orwarding ( ) " ) ; 

# delete forwarding netline from caller's 
conference 

del_conf ( scall , 
glb_get (FWRDlNET+SUBSMAX*scall+subs) , 
glb_get (FWRDlACT+SUBSMAX*scall+subs) , LOGON) ; 

# set call answered so forward task marks 
itself inactive and stopped 

glb_set (FWRDlANS+SUBSMAX*call+subs, vpline) 
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voslog ( w sc_hangup ( M &glb_get (FWRD1ACT+SUBSM 
AX*scall+subs)& n ) n ) ; 

# set forwarding task inactive and stopped 
glb_set (FWRDlACT+SUBSMAX*scall+subs, 0) ; 
endif 

sem_clear (SEM_FWRD+subs ) ; 
endfiinc 

func start_voicemail (scall, smsg) 

~:/r — # cheekr: ( f 02; ^ voice -mail active— — " — ~ — : 



if (glb_get (MAILlACT+SUBSMAX*scall+subs) eq 0) 
voslog ( n start_voicemail () tt ) ; 

# request voice mail vpline task be started 
msg_put (mainpid, n V n &scall&subs) ; 
code = msg_get(3) ; 

if (substr (code, 1, 1) strneq "V") 

voslog ( "ERROR: code "icodet" when 
allocating voice mail vpline") ; 

# delete our netline from conference 
del_conf (scall, netline, vpline, LOGOFF) 

player eorder ( scall ) ; 

# add our netline to conference 
add_conf (scall, netline, LOGOFF) ; 

hangup ( ) ; 

chain ( "GETDID" , vpline) ; 

else 

# set voice mail task active 
glb_set (MAILlACT+SUBSMAX*scall+subs , 

substr(code, 2, 99)) ; 

if (smsg <> 0) 

# delete our netline from conference 
del_conf (scall , netline, vpline, 



LOGOFF) ; 
message 

mail' (030) .vox) ") 



# play 'connecting call to voice mail 
voslog ( "sc_play ( ' to voice 

sc_play (vpline, "PR0030 . vox" ) ; 

# add our netline to conference 
add_conf (scall, netline, LOGOFF) ; 
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end if 
endif 
endif 
endfuhc 

func stop_voicemail (scall) 

sem_set ( SEM_MAIL+subs ) ; 

# check for voice mail active _ . . 

" if (gib_get(MAILlACT+SUBiSHfiX*scali+sub"s) <> 0) 
voslog ( " stop_voicemail ( ) " ) ; 

# delete voice mail netline from caller's 

conference 

del_conf (scall, 
g lb_get (MAILlNET+SUBSMAX*scall+subs) , 
glb_get(MAILlACT+SUBSMAX*scall+subs) , LOGON) ; 

# abort voice mail task 

sc_hangup(glb_get (MAILlACT+SUBSMAX*scall+subs) ) 

voslog ( " sc_hangup ( " &glb_ge t (MAIL1ACT+SUBSM 
v AX*scall+subs)&" ) " ) ; 

# set voice mail task inactive and stopped 
glb_set(MAILlACT+SUBSMAX*scall+subs, 0) ; 

endif 

sem_clear ( SEM_MAIL+subs ) ; 
endfxinc 

func modulo2 (scall) 

return ( (scall+1) - (scall+1) /2*2) ; 
endf unc 

include "conf subs . inc" # conferencing 

subroutines 



# CALLOUT.VS - D121 line task 

# Designed to work in concert with GETDID.VS 
# 

# 
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definitions 

include n global. inc" # define global variable 

numbers 

var code: 16 ; 
calls 

var vpline:3 ; 
number 

var netline:3 ; 

var conf:3 ; 

var subs : 3 ; 

var call : 3 ; 
" vaf" : xria : inpid • 3 f 

var stats: 16 ; 
status (confsubs) 
var line: 3 ; 

end 

program 

# Initializations 
mainpid = glb_get (MAINPID) ; 

vpline = arg() ; ! 
if ((vpline < GDIDBGN) or (vpline > GDIDEND) ) ( 

voslog ( "ERROR: invalid vpline number "&vpline&" 
essage received") ; 

hangup ( ) ; 

chain ( "GETDID" , vpline) ; 
endif 

line = vpline ; # debug only 

# Begin call processing 

# enable hang up jump to onsignal 
sc_use (vpline) ; 

# set call number inactive (in case of unexpected 
disconnect) 

call = M " ; 

# do not allow disconnects to run onsignal 
sc_watch (vpline, " + -", 1) ; 

while (length (netline = msg_get(3)) eq 0) 
endwhile 

if ((netline < NETBGN) or (netline > NETEND) ) 

if ( (netline < ALTBGN) or (netline > ALTEND) ) 
voslog ( -ERROR: invalid netline niomber 
"&netline& M message received") ; 

hangup ( ) ; 



# return value from function 

# voice processing line 

# network line number 

# conference number 

# subscriber number 

# cal l number 

- # main task PID— 1 

# beginning netline 

# needed for scr_stat 
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chain ( "GETDID" , vpline) ; 
end if 
endif 

while (length(subs = msg_get(3)) eq 0) 
endwhile 

if ((subs < 0) or (subs >= SUBSMAX) ) 

voslog( "ERROR: invalid subscriber number 
"&subs&" message received") ; 

hangup () ; 

chainc( " GETDID" , "vpl-ine )'---; " - - . -to: 

endif 

# set task debug screen status 
scr_stat ( "C-"&netline) ; 

while (length(call = msg_get(3)) eq 0) 
endwhile 

if ((call < 0) or (call >= BARGMAX) ) 

voslog( "ERROR: invalid outbound call number 
"&call&" message received") ; 
hangup ( ) ; 

chain ( "GETDID" , vpline) ; 
endif 

^ # return answer supervision via vpline 

while ((code = sc_of f hook (vpline ) ) <> T_OFFH) 
voslog( "ERROR: code "&code&" while taking 
vpline "&vpline&" of f hook" ) ; 
sleep (10) ; 
endwhile 

# now allow disconnects to run onsignal 
sc_watch (vpline, "d+-", 1) ; 

# set task debug status 
scr_stat("0-"&netline) ; 

for ( ; ; ) 

# clear digits buffer 
sc_clrdigits (vpline) ; 

# check for caller tone input 

code = sc_getdigits (vpline, 2, 3, 2) ; 
if (code eq T_MAXDT) 

# check for forced voice mail request 
if (sc_digits (vpline) streq "*9") 

# start voice mail with announcement 
start voicemail (call, 1) ; 
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# check for barger not active 

if ( (glb_get (BARGlSUB+subs) eq 0) 
and (glb_get (BARG2SUB+subs) eq 0)) 
hangup ( ) ; 

chain ( "GETDID" , vpline) ; 
endif 
endfor 

end 

onsignal 

voslog( "Onsignal" ) ; 

hangup^:}:.; ; ~ — >.-==3- i ; ~ ~ : ,~ *".':•*■ i 

chain ( "GETDID" , vpline) ; 

end 

f unc hangup ( ) 

# abort our multitasking calls in progress 
sc_abort (vpline) ; 

# wait for all our multitasking calls to finish 
for (code = 1; (sc_stat (vpline) <> 0) and (code <= 

20) ; code++) 

sleep (5) ; 
endfor 

if (sc_s tat (vpline) <> 0) 

voslog ( "ERROR: 10 seconds on vpline "&vpline&" 
Without idle status" ) ; 
endif 

# put vpline onhook 

while ((code = sc_onhook (vpline ) ) <> T_0NH) 

vos log ( "ERROR: code "&code&" while putting 
vpline "&vpline&" onhook" ) ; 
sleep (10) ; 
eridwhile 

voslog( "sc_onhook( "&vpline& M ) " ) ; 

# delete vpline from our conference 
del_conf (call, vpline, net line, LOGOFF) ; 

# delete netline from our conference 
del_conf (call, netline, vpline, LOGON) ; 

# check for active call 
if (call strneq " " ) 

# set our conference inactive (but leave number 

usable) 

glb_set (CALLlCNF+SUBSMAX*call+subs , w + " &conf ) ; 
endif 



WO 96/09731 



PCT/US95/12318 



/V5 

# remove vpline receive from net line transmit 
if ((code = Sbrk(vpline, netline, SSAS_ONHOOK, 

SSAL_NO)) <> 0) 

voslog("Sbrk("&vpline&" , " fcnetline&" ) code 

"&code&" error") ; 
else 

voslog( "Sbrk("&vpline&" , "&netline&" ) : 
"fcSstatus (vpline) ) ; 
endif 



" # remove netline receive from vpline transmit 

# and enable netline SS96 alerting 

if ((code = Sbrk(netline, vpline, SSAS_ONHOOK, 

SSAL^YES)) <> 0) 

voslog( "Sbrk("&netline&" , "&vpline&") code 

"&code&" error") ; 
else 

voslog("Sbrk("&netline&" , "&vpline&") : 
"&S status (netline) ) ; 
endif 

# release net line/ vpline allocations 
deallocO ; 



V #check for active call 
if (call strneq "") 

# set caller netline inactive 

glb_set (CALLlNET+SUBSMAX*call+subs , " " ) ; 

# set answer supervision inactive 
glb_set (CALLlANS+SUBSMAX*call+subs , " " ) ; 

# set caller inactive (do last) 
glb_set (CALLlACT+SUBSMAX*call+subs, " " ) ; 

endif 

# release our conference if unused 
rel_conf (call) ; 

# set task debug screen status 
scr_stat("Idle") ; 

endfunc 

func deallocO 

# release netlinevpline allocations 
msg_put (mainpid, "D"&netline&vpline) ; 
if ((code = msg_get(3)) strneq "D-OK") 

voslog( "ERROR: code "&code&" when deallocatxng 
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endfunc 

func start_voicemail (scall , smsg) 
# check for voice mail active 

if (glb_get (MAILlACT+SUBSMAX*scall+subs) eq 0) 

# request voice mail vpline task be started 
msg_put (mainpid, "V&scall&subs) ; 
code = msg_get(3) ; 

if (substr (code, 1, 1) strneq "V") 

voslog ( "ERROR: code n &code&" when 
allocating voice mail vpline") ; 

# delete our netline from conference 
del_conf (scall, netline, vpline, LOGOFF) 

play_reorder ( scall ) ; 

# add our netline to conference 
add_conf (scall, netline, LOGOFF) ; 

hangup ( ) ; 

chain ( " GETDID vpl ine ) ; 

else 

# set voice mail task active 
glb_set (MAILlACT+SUBSMAX*scall+subs , 

vsubstr (code, 2, 99)) ; 

if (smsg <> 0) 

# delete our netline from conference 
del_conf (scall, netline, vpline, 



LOGOFF) ; 
message 

mail 1 (030) .vox) " ) 



# play 'connecting call to voice mail 
voslog ( n sc__play ( * to voice 
sc__play (vpline, "PR003 0 .vox" ) ; 



# add our netline to conference 
add_conf (scall , netline, LOGOFF) 
endif 
endif 
endif 
endfunc 

func play_reorder ( scall ) 



# delete our netline from caller's conference 
del_conf (scall , netline, vpline, LOGOFF) ; 
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vos log ( n sc_play tone { reorder ) " ) ; 

# play reorder tones for 20 seconds 
for (code = 1; code <= 40; code++) 

sc_playtone(vpline, 480, 620, -24, -24, 30) ; 
# delay between tones 
sleep(2) ; 
endf or 

# add our netline to caller's conference 
add_conf (scall, netline, LOGOFF) ; 

■exrdfunc — — — — — - — . r^rmr 

func modulo2 (scall) 

return ( (scall+1) - (scall+1) /2*2) ; 
endfunc 

include "conf subs . inc n # conferencing 

subroutines 



# 

# GETDID.VS - D121 line task 

$\ Designed to work in concert with MAIN.VS 
# 

# 



dec 

inc lude " datmod . inc ' 
definitions 

include "global .inc 1 
numbers 

var code: 16 ; 
calls 

var cnt : 3 ; 

var vpline : 3 ; 
number 

var netline: 3 ; 

var dir : 4 ; 

var subs : 3 ; 

var call: 3 ; 

var mainpid : 3 ; 

var did: 10 ; 



# SS96 library 

# define global variable 

# return value from function 

# general counter 

# voice processing line 

# network line number 

# call direction ( "In" / "Out" ) 

# subscriber number 

# call number 

# main task PID 

# DID 



var line: 3 ; 



# needed for scr_stat 
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program 



# Initializations 

vpline = arg() ; 

line '= vpline ; # debug only 

if (glb_get (MAINFLG) <> 99) # if first time 

initialization 

mainpid = glb_get (MAINPID) ; 

msg_put (mainpid, getpidO) ; # inform main 
task of our pid 

# wait for main task to be ready to go 

— wMie - ( glb_ge t tMAINFLG ) < > ~ 9 9-)— — 

endwhile 
endif 

# Begin call processing 

# enable jump to onsignal 
sc_use (vpline) ; 

# Set minimum detected wink duration to 50 msec (from 
100ms default) 

sc_setparm (vpline, 518, 5) ; 

# Set maximum detected wink duration to 300 msec (from 
200ms default) 

v sc_setparm (vpline, 519, 30) ; 

# Turn on speech card function calls trace 

# sc_trace (vpline, 1) ; 

# Attempt to go onhook 

# do not allow disconnects to run onsignal 
scZwatch (vpline, , 1) ; 

while ( (code = sc_pnhook (vpline) ) <> T_0NH) 

vos log ( " ERROR : " &code& M - onhook f ai lure " ) ; 
sleep (10) ; 

endwhile 

# Wait for message from main task indicating start of 
call 

for (;;) 

while (length (vpline = msg_get (3600) ) eq 0) 
endwhile 

if ((vpline < GDIDBGN) or (vpline > GDIDEND) ) 
voslog( "ERROR: invalid vpline number 
w &vpline&" message received") ; 

continue ; 
endif 
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while ( length (netline = msg_get(3)) eq 0) 
endwhile 

if ( (netline < NETBGN) or (netline > NETEND) ) 
if ( (netline < ALTBGN) or (netline > 

ALTEND) ) 

voslog( "ERROR: invalid netline number 
"&netline&" message received") ; 

continue ; 
endif 
endif 



while (length(dir = msg_get(3)) eq 0) 
endwhile 

if ((dir strneq "In") and (dir stmeq "Out")) 
voslog( "ERROR: invalid call direction 
'&dir&" message received") ; 

continue ; 
endif 

# set task debug screen status 
scr_stat ( "G-"&netline) ; 

# defer hang up jump to onsignal 
sc_sigctl("d") ; 



# drive vpline receive from netline transmit 
if ((code = Scon (vpline, netline, SSAS_PASS, 

SSAL_NO)) <> 0) 

voslog("Scon("&vpline&", "&netlme&") code 

"&code&" error") ; 

else . 

voslog("Scon("&vpline&" , "&netline&") : 

"fcSstatus (vpline) ) ; 
endif 

# check for inbound call direction 
if (dir streq "In") 

# drive netline receive from Vpline 

transmit ... 

if ((code = Scon(netline, vpline, 

SSAS PASS, SSAL_YES)) <> 0) 

~ voslog("Scon( n &netline&" , "&vpline&- ) 

code "&code&" error") ; 

else 

voslog ( " Scon ( " &netline& " . "&vpline&" ) 
"ScSstatus (netline) ) ; 

endif 
endif 
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# check for outbound call direction 
if (dir streq "Out") 

while (length(subs = msg_get(3)) eq 0) 

endwhile 

if ((subs < 0) or (subs > SUBSMAX) ) 

voslog( "ERROR: invalid subscriber 
number "&subs&" message received") ; 

continue ; 
endif 

while (length(call = msg_get(3)) eq 0) 

i^rendwhile— -~ : — ~~- . ----- rr— 

if ((call < 0) or (call > CALLMAX) ) 

voslog( "ERROR: invalid call number 
w &call$c" message received") ; 

continue ; 
endif 

# chain to CALLOUT if any calls inactive 
if ( (glb_get (CALLlACT+subs) eq 0) 
or (glb_get (CALL2ACT+subs) eq 0) 
or (glb_get (CALL3ACT+subs) eq 0) 
or (glb_get (CALL4ACT+subs) eq 0) ) 

# send netline number to CALLOUT 
msg_put (getpid ( ) , netline) ; 

# send subscriber number to CALLOUT 
msg_pu t ( getpid ( ) , subs ) ; 

# send call number to CALLOUT 
msg_PUt ( getpid ( ) , call) ; 

# replace ourself with CALLOUT 
chain ("CALLOUT", vpline) ; 



else 



24, -24, 50) 



# call exceeds our capacity 
voslog ( "sc_playtone (busy) " ) ; 

# play busy tones for 20 seconds 
for (cnt = 1; cnt <= 20; cnt++) 

sc_playtone (vpline , 480 , 620 , 



# delay between tones 

sleep (5) ; 
endfor 
hangup ( ) ; 

# get next call to process 
continue ; 
endif 
endif 



# set up for later transition checks 
sc_clrtrans (vpline) ; 
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# disable tone interruption 
sc_toneint (vpline, 0) ; 

# defer hang up jump to onsignal 
sc_sigctl ( " ( " ) ; 

# send wink to get DID 

while ((code = sc_wink (vpline) ) <> T_WINK) 

voslog( "ERROR: code "&code&" while sending 
wink— on vpline -"&vpl-ine) ; - jzr;~." • v - - — — 

sleep (10) ; 
endwhile 

# set MF detection parameter 

# MF_setparm (vpline, 1, 0) ; # MF 

# switch to MF detection 

# sc_digitctl (vpline, 0, 1) ; # MF 

# MF_on (vpline) ; # MF 

# clear digit buffer 
sc__clrdigits (vpline) ; 

v # WATCH DIGIT COUNT ! ! ! 

% if ((code = sc_getdigits (vpline, 7, 4, 1)) <> 

T_MAXDT) # DTMF 

# if ((code = sc_getdigits (vpline, 9, 4, 1)) <> 

T_MAXDT) # MF . 

vos log ("ERROR: "&code&" - accessing DID 

failure"); 

vos log ( " Incomplete DID : " &did& " : ) ; 
hangup ( ) ; 
continue ; 
endi f 

did = sc_digits (vpline) ; 
vos log ("Inbound DID: "&did) ; 

# switch back to DTMF detection 

# MF_off (vpline) ; # MF 

# sc_digitctl (vpline, 1, 1) ; # MF 

# allow deferred hang ups 
sc_sigctl (") ") ; 

# enable tone interruption 
sc_toneint (vpline, 1) ; 

# search alobal tables indexed by subscribers 
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# check if processing a caller access 

if (did streq glb_get (CALLER_DID+subs) ) 
# chain to CALL IN if any calls 

if ( (glb_get (CALLlACT+subs) eq 0) 
or (glb_get (CALL2ACT+subs) eq 0) 
or (glb_get (CALL3ACT+subs) eq 0) 
or (glb_get (CALL4ACT+subs) eq 0)) 

# send netline number to CALLIN 
msg__put (getpid( ) , netline) ; 

# send subscriber number to 



msg_put (getpid( ) , subs) ; 

# replace our self with CALLIN 
chain ( "CALLIN" , vpline) ; 

else 

break ; 
endif 
endif 

# check if processing a barger access 
number call 

if (did streq glb_get (BARGE_DID+subs) ) 

# chain to BARGER if barger inactive 
if ( <glb_get (BARGlSUB+subs) streq " " ) 
and (glb_get <BARG2SUB+subs) streq " M ) ) 

# send netline number to BARGER 
msg_put (getpid( ) , netline) ; 

# send subscriber number to 

BARGER 

msg_put (getpid{ ) , subs) ; 

# send initial pin entry string 

to BARGER 

msg_put (getpid ( ) , 4i ") ; 

# replace ourself with- BARGER 
chain ( "BARGER" , vpline) ; 

else 

break ; 
endif 
endif 
endf or 

if (subs < SUBSMAX) 

# DID found but call exceeds our capacity 
voslog ( " sc_j?laytone (busy) " ) 

# play busy tones for 20 seconds 
for (cnt = 1; cnt <= 20; cnt++) 

sc__playtone (vpline, 480, 620, -24, - 

24, 50) ; 



number call 
inactive 



CALLIN. 



£ delay between tones 
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"&did) 



24, 30) 



/S3 

sleep (5) ; 
endfor 

else 

vos log ( "ERROR: no match found for DID: 

# play reorder tones for 20 seconds 
voslog("sc_playtone( reorder) n ) ; 
for (cnt = 1; cnt <= 40; cnt++) 

sc_playtone (vpline, 480, 620, -24, - 



# delay between tones 
sleep (2) ; 
. endfor 
endif 
hangup ( ) ; 
endfor 

end 

# 



# no onsignal needed 
#onsignal 

Ik voslog( -Onsignal") ; 
hangup () ; 

# restart ; 
#end 

func hangup () 

# abort our multitasking calls in pr9gress 
sc_abort (vpline) ; 

# wait for all our multitasking calls to finish 
for (code = 1; (sc_stat (vpline) <> 0) and (code <= 

20) ; code++) 

sleep (5) ; 
endfor 

if (sc^stat (vpline) <> 0) 

voslog( "ERROR: 10 seconds on vpline "&vplme& 

without idle status") ; 
endif 

# put vpline onhook 

while ((code = sc_onhook (vpline) ) <> T_0NH) 

voslog( "ERROR: code "&code&" while putting 
vpline "&vpline&" onhook") ; 
sleep (10) ; 
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# remove vpline receive from netline transmit 
if ((code = Sbrk(vpline / netline, SSAS_ONHO0K, 

SSAL_NO) ) <> 0) 

voslog( n Sbrk( M &vpline&" , w &netline& n ) code 
" &code& M error M ) ; 
else 

voslog( "SbrkC'Scvplinefic" , a &netline& M ) : 
"fcSstatus (vpline) ) ; 
endif 

# remove netline receive from vpline transmit 

.T~ ;#^and~ana1^ al^elil^^-'- --- - ^^""" -~ ~ 

if ((code = Sbrk(netline, vpline, SSAS_0NH00K, 

SSAL_YES) ) <> 0) 

voslog( "Sbrk( H &netline& n , M &vpline& M ) code 

" &code& M error n ) ; 
else 

voslog( M Sbrk( M &netline& M , M &vpline& M ) : 
M &Sstatus (netline) ) ; 
endif 

# release netline/vpline allocations 
nisg_put (mainpid, n D M &netline&vpline) ; 
if ((code = msg_get(3)) strneq "D-OK") 

voslog( "ERROR: code "&code&" when deallocating 
netline "&netline) ; 
\ endif 

# set task debug screen status 
scr_s tat ( "Idle" ) ; 

endfunc 
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# 
# 
# 

■r 

# 

#■ 



iS5 



APPENDIX III 

SOURCE CODE LISTING OF A FORWARD TASK 
USED BY THE MAIN PROGRAM 



FORWARD. VS - D121 line task 

Designed- torwork — i n concerfcwirfeh™MAIN.^S^ 



dec 

inc lude " da tmod . inc ' 
definitions 

include " global . inc 
numbers 



var 
calls 

var 
var 
var 
var 
var 
var 
var 
var 
var 
var 
var 



code: 16 ; 

vpline: 3 
netline:3 
mainpid:3 
subs : 3 ; 
call: 3 ; 
conf : 3 ; 
flash: 3 ; 
car : 3 ; 
sdate : 7 ; 
s time: 7 ; 
fwrdnum: 



20 



var stats: 16 
status (conf subs) 
var line: 3 ; 

end 



# SS96 library 

# define global variable 

# return value from function 



# subscriber number 

# toggling call number 

# conference number 

# flash DTMF digits 

# call analysis result 

# starting datq 

# starting time 

# dialed forwarding number 

# beginning net line 

# needed for scr_stat 



program 

# Initializations 

vpline = arg() ; 

line = vpline ; 

if <glb_get (MAINFLG) <> 99) 
initialization 

mainpid = glb_get (MAINPID) 



# debug only 

# if first time 



\ nfnrm ma i n task of our pid 
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# wait for main task to be ready to go 
while (glb_get (MAINFLG) <> 99) 
endwhile 
endif 

# Begin call processing 

sc_use (vpline) ; 

# Set minimum detected wink duration to 70 msec (from 
100ms default) 

sc_setparm(vpline, 518, 7) ; 



# -Set\oia€LximiUQ ^detected wifik duration to 250 msec (from 
200ms xiefault) 

sc_setparm(vpline, 519, 25) ; 

# Turn on speech card function calls trace 

# sc_t race (vpline, 1) ; 

# Wait for onhook complete 

sc_watch (vpline , " +- " , 1 ) ; 

while ((code = sc_onhook (vpline) ) <> T_ONH) 

voslog( "ERROR: code "&code& M - onhook failure") 



sleep(10) 
endwhile 



Wait for message from main task indicating start of 
call 

for (;;) 

# initialize netline in case of reorder 
netline = 0 ; 

# ignore disconnect 

_: sc_watch (vpline , ■ lw+- " , 1 ) ; 

while (length (vpline = msg_get (3 600) ) eq 0) 
endwhile 

if ((vpline < FWRDBGN) or (vpline > FWRDEND) ) 
vos log ( "ERROR: invalid vpline number 
"&vpline&" message received") ; 

# set forwarding inactive 
# (call not set 

yet) glb_set (FWRDlACT+SUBSMAX*call+subs , n " ) ; 

continue ; 
endif 

# get subscriber number 

while (length(subs = msg_get(3)) eq 0) 
endwhile 
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if ((subs < 0) or (subs >= SUBSMAX) ) 

voslog ( "ERROR: invalid subscriber number 
"&subs& M message received") ; 

# set forwarding inactive 

# (call not set 

yet) glb_set(FWRDlACT+SUBSMAX*call+subs / "") ; 

continue ; 
endif 

# get call number 

— — ~. . while- ( lengfchi.cal 1— =-m§fcg^^^)4 ^eg^O -) 

endwhile 

if ((call < 0) or (call >= FWRDMAX) ) 

voslog ( "ERROR: invalid call number 
"&call&" message received") ; 

# set forwarding inactive 

# (call # 

invalid) glb_set (FWRDlACT+SUBSMAX*call+subs , " " ) ; 

continue ; 
endif 

# indicate dialing forwarding number 
glb_set (FWRDlANS+SUBSMAX*call+subs , 0 ) ; 

v # check for "transparent" forwarding mode 

X if (glb_get (FORWARD+subs) streq 

glb_ge t ( C ALLER_DID+ subs ) ) 

# request outbound alternate netline 

allocation 

msg_put (mainpid, "A"&vpline) ; 
if ((code = msg_get(3)) strneq "A-OK") 
voslog ("ERROR: code "&code&" when 
allocating outbound netline") ; 

# set forwarding inactive 

glb_set (FWRDlAGT+SUBSMAX*call+subs , 



n it J 



ALTEND) ) 



# set forwarding call unanswered 
glb_set (FWRDlANS+SUBSMAX*call+subs , 

# start voicemail without announcement 
start_voicemail (call, 0) ; 

continue ; 
endif 

# get allocated alternate netline 

while (length (netline = msg_get(3)) eq 0) 

endwhile 

if ( (netline < ALTBGN) or (netline > 
vosloa ( "ERROR: invalid alternate 
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# set forwarding inactive 
glb_set (FWRDlACT+SUBSMAX*call+subs, 

# set forwarding call unanswered 
glb_set (FWRDlANS+SUBSMAX*call+subs, 



# release netline/vpline allocations 
deallocO ; 

continue ; 
endif 

else 

# request outbound netline allocation 
rmsgiput (mainpid, "N^&vpline) ; — : 
if ((code = msg_get(3)) strneq "N-OK") 
voslog( "ERROR: code "&code&" when 
allocating outbound netline") ; 

# set forwarding inactive 
glb_set (FWRDlACT+SUBSMAX*call+subs, 



# set forwarding call unanswered 
glb_set (FWRDlANS+SUBSMAX*call+subs, 

# start voicemail without announcement 
start_voicemail (call, 0) ; 

continue ; 
endif 

# get allocated netline 

while (length (netline = msg_get (3) ) eq 0) 
endwhile 

if ( (netline < NETBGN) or (netline > 

NETEND) ) 

voslog( "ERROR: invalid netline number 
"&netline& H message") ; 

# set forwarding inactive 
glb_set (FWRDlACT+SUBSMAX*call+subs , 



ii it j 



# set forwarding call unanswered 
glb_set (FWRDlANS+SUBSMAX*call+subs / 

# release netline/vpline allocations 
dealloc ( ) ; 

continue ; 
endif 
endif 

# set our netline active 

glb_set <FWRDlNET+SUBSMAX*call+subs, netline) 



# defer hang up jump to onsignal 
sc_sigctl ( "d M ) ; 



WO 96/09731 



PCTAJS95/12318 



# drive netline receive from vpline transmit 
if ((code = Scon (netline, vpline, SSAS_PASS, 

SSAL YES) ) <> 0) 

voslog (" Scon ( "&netline&" , "&vpline& ) code 

" &code& " error " ) ; 
else 

voslog (" Scon ("&netline&" , "&vpline&" ) : 
"&Sstatus (netline) ) ; 
endif 



# drive vpline receive from netline transmit 
if ((code = Scon(vpline, netline, SSAS_PASS, 

SSAL NO) ) <> 0) 

"~ voslog( "Sconp&vplineSe" , "fcnetlinefc") code 

"&code&" error") ; 

©1 s © 

voslog( "Scon("&vpline&" , "&netline&") : 

" &S status (vpline) ) ; 
endif 

# throw away deferred hang ups 
sc_sigctl("c") ; 



# set task debug screen status 
scr_stat ("F-"&netline) ; 



# save the initial time 
sdate = date() ; 
stime = timeO ; 

dial_fwrd: 

# go off hook 

if ((code = sc_off hook (vpline)) <> T_OFFH) 

voslog ( "ERROR: code "&code&" while putting 
vpline "&vpline&" of f hook" ) ; 

goto retry ; 

g1 s g 

voslog ("sc_off hook (" &vpline& ")" ) ; 
endif 

# wait one second for next event report 
code = sc_wait (vpline, 10) ; 

voslog ("sc_wait("&vpline& M , 10) = "&code) ; 

# check for loop current event report 
if (code. <> T_LC0N) 

voslog ("ERROR: Loop current txmeout cn 

vpline "&vpline) ; 

goto retry ; 
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# wait one second for next event report 
code = sc_wait (vpline, 10) ; 

voslog( "sc_wait ( "&vpline& n , 10) = "&code) ; 

# check for wink event report 
if (code <> T_WKRECV) 

voslog( "ERROR: Wink timeout on vpline 

"&vpline) ; 

goto retry ; 
endif 

# get full dialing string for trunk group used 
if. (4ne 1 1 ine > = , -JSETBGN ) and— <-n<=*-l ine < = - 

NETEND) ) 

fwrdnum = 

glb_get ( PSTN_PRE+subs ) &glb_get ( FORWARD+subs ) &glb ae t 
(PSTN_PST+subs) ; 
else 

fwrdnum = 

glb_get (STRATUS_PRE) &glb_get (FORWARD+subs) &glb get 
( STRATUS_PST ) ; 

endif 

voslog( "Dialing forwarding number "Scfwrdnum) ; 

# dial the forwarding number - wait until 
dialing completed 

%^ if ((code = sc_dial (vpline, fwrdnum)) <> 

T_DIAL) 

voslog( "ERROR: code "&code&" while dialing 
forwarding number") ; 
retry: 

if (timesub(date() , time(), sdate, stime) 

<= 10) 

# put vpline onhook 

if ((code = sc_onhook (vpline) ) <> 

T_ONH) 

vos log ( "ERROR: code "&code&" 
while putting vpline "&vpline&" onhook") ; 

else 

voslog( "sc_onhook{ "&vpline&" ) ") ; 
endif 

# wait for onhook recognition 
sleep (10) ; 

goto dial_fwrd ; 

else 

goto call_busy ; 
endif 
endif 
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# add our netline to current caller's 
conference 

add_conf (call, netline, LOGON) ; 

# set the initial time 
sdate = date ( ) ; 
stime = time() ; 



- net-tine) 



# set call progress active (MAIN task needs 



gib_set (FWRDlCPA+SUBSMAX*call+subs , netline) ; 

# start call analysis 
sc_call (vpline, ",") ; 

# set call progress inactive 
glb_set (FWRDlCPA+SUBSMAX*call+subs, "") ; 

# get call analysis result 
car = sc_getcar (vpline) ; 

switch (car) 

case CA_BUSY: # Called line is busy 

^ voslogCCAR - vpline "&vpline&" is busy") 

case CA_NOAN: # Called line did not answer 

voslogCCAR - vpline "&vpline&" did not 

case CA_NORNG: # Called line did not 

voslogCCAR - vpline "&vpline&" did not 

case CA_CONN: # Called line connected 

voslogCCAR - vpline "&vpline&" 

connected" ) ; . , 

case CA_OPINT: # Called line received 

operator intercept . 

voslogCCAR - vpline -&vpline&" received 

operator intervept") ; 

case T_LCTERM: # MAIN task aborted CAK 

due to answer supervision 

voslogCCAR aborted - vpline "&vpline& M 

answer supervision") ; 
endswitch 

# start voicemail if call busy 
if (car eq CA_BUSY) 

rail V»1 1 <Z\J • 



answer" ) 
ring 
ring" ) ; 
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conference 



del_conf (call, netline, vpline, LOGOFF) ; 

# set forwarding call unanswered 
glb_set (FWRDlANS+SUBSMAX*call+subs, M - ) ; 

# abort possible caller's task sc_play 
sc_abort (glb_get (CALLlACT+SUBSMAX*cal 

1+subs) ) ; 

voslog( "sc.abort ( "&glb_get (CALL1ACT 
+SUBSMAX*call+subs ) & " ) " ) ; 

* Jf_ add our vpl-ine to oal-ler-'-s-conferenee ~~ 

add_conf (call/ vpline, LOGOFF) ; 

# play 'one moment please 1 message 
voslog ( " sc_play ( 1 one 

moment ' (PR0720) .vox) " ) ; 

sc_play (vpline, "PR0720 . vox" ) ; 

# delete our vpline from conference 
del_conf (call, vpline, netline, LOGOFF) ; 

# start voice mail without announcement 
start_voicemail (call, 0) ; 



^pquest 



# disconnect and look for new forwarding 



hangup ( ) 
continue 
endif 



# check for maximum time for audio feedback 
from forwarding channel 

while (timesub(date() , time(), senate, stime) < 

25) 

# check for answer supervision 
if (sc_s tat (vpline, 9) eq 0) 

voslog ( "Answer supervision" ) ; 



# TEST - monitor forwarding answer 
if (glb_get (CALLER_DID+subs) streq 
# delete our netline from 
del_conf (call , netline, vpline, 



function 
"6545786" ) 

caller * s conference 
LOGOFF) ; 

# abort possible caller's task 

sc_play 
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sc_abort (glb_get (CALL1ACT 

+SUBSMAX*call+subs) ) ; 

voslog ( n sc_abort ( "&glb_get 
(CALLlACT+SUBSMAX*call + subs)& ,, ) " ) ; 

# add our vpline to caller's 

conference 

add_conf (call, vpline, LOGOFF) ; 

# play 'one moment please' 



message - — 

voslog ( " sc_play ( ■ one 
moment' (PR0720) .vox) n ) ; 

sc_play (vpline, " PR0720 . vox" ) 



conference 
LOGOFF) ; 

announc erne n t 



# delete our vpline from 
del_conf (call, vpline, netline, 

# start voice mail without 

start_voic email (call, 0) ; 
endif 
break ; 



" A endif 
endwhile 

# check for no answer supervision 
if (sc_s tat (vpline, 9) eq 1) 

# delete our netline from caller's 

conference 

del_conf (call, netline, vpline, LOGOFF) ; 

# abort possible caller's task sc_play 
sc.abort (glb_get (CALLlACT+SUBSMAX*cal 

1+subs) ) ; 

voslog ("sc.abort ( "&glb_get (CALL1ACT 
+SUBSMAX*call+subs) &" ) ") ; 

# delete caller's netline from conference 
del_conf (call , 

glb_get ( CALL lNET+SUBSMAX*cal 1+subs) , 

g lb_get (CALLlACT+SUBSMAX*cal 1 + subs) , LOGON) ; 

# play 'one moment please' message to 
caller's netline 

voslog ( " sc_play ( ' one 
moment ■ ( PR07 20), vox) M ) ; 

sc_play (glb_get (CALLlACT+SUBSMAX*call 
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# add caller's netline to conference 
add_conf (call, 

glb_get (CALLlNET+SUBSMAX*call+subs ) , LOGON) ; 

# start voice mail without announcement 
start_voicemail (call, 0) ; 



answer 
stime) < 64) 



tones 
30, 100) 



# check for maximum time for forwarding 
while (timesub(date ( ) , time(), sdate, 

# check for answer supervision 

ii— ——if- ( scirslsat (vpliner; — 9"prq 0) - 
voslog( "Answer supervision" ) ; 
break ; 
endif 

# play awaiting answer supervision 
sc_playtone (vpline, 1000, 2000, -30, 

endwhile 

# check for no answer supervision 
if (sc_stat (vpline, 9) eq 1) 

# set forwarding call unanswered 
glb_set (FWRDlANS+SUBSMAX*call+subs, 

# disconnect and look for new 



forwarding request 

hangup ( ) 
continue 
endif 
endif 



below) 



# TEST - monitor forwarding answer function 
if (glb_get (CALLER_DID+subs) streq " 6545786 " ) 
# now watch for disconnect (duplicated 

sc_watch (vpline, M dl+-" / 1) ; 



# add our netline as listener to selected 
caller 1 s conference 

add_list (call , netline, LOGON) ; 

for (;;) 

# delete our netline as listener 
del_list (call , netline, vpline, 

LOGOFF) ; 



# play monitor mode beep to listener 
sc_play tone (vpline, 1000, 2000, -30, 
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30, 20) ; 

# add our netline as listener 
add_list (call, netline, LOGOFF) ; 

# clear digit buffer 
sc_clrdigits (vpline) ; 

# space monitor beeps every 5 seconds 

while looking for tone input 

_i-f ^f(code- ==^c^^^^i^its (yp]J.ne, 1, .5-, 



1) ) eq T_MAXDT) 

# check for back out request 
if ((code = sc_digits (vpline) ) 

streq "#") n , 

# delete our netline as 

listener to selected caller's conference 

del_list (call, netline, 

vpline, LOGON) ; 
forwarding request 



# disconnect and look for new 



hangup ( ) ; 
continue ; 
endif 

^ x # check for proceed request 

if (code streq "* w ) 

break; 
endif 
endif 
endf or 

# delete our netline as listener to 
current caller ' s conference 

del_list (call, netline, vpline, LOGON) ; 



conference 



conference 



100) 



# add our netline to current caller's 
add_conf (call, netline, LOGON) ; 

# add our vpline to current caller's 
add_conf (call, vpline, LOGOFF) ; 

# play joining conference tones 

sc _play tone (vpline, 1000, 2000, -30, -30, 

voslog( M sc_playtone(join conf ) w ) ; 

# delete our vpline from current caller's 
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del_conf (call, vpline, netline, LOGOFF) ; 

else 

# add our netline to current caller's 

conference 

add_conf (call, netline, LOGON) ; 
endif 

# stop voice mail if active 
stop_voicemail (call) ; 

# set voice mail task inactive and not run 
^glb_set.(MAILlACT±SUBSMAX* cal l-+subs , « « ) ; ~ - — 

# check for MAIN task stopping call progress 
due to, answer supervision 

if (car <> T_LCTERM) 

# abort possible caller's task sc_play 

(e.g. ringing) 

sc_abort (glb_get (CALLlACT+SUBSMAX*cal 

1+subs) ) ; 

voslog( "sc_abort ( " &glb__get (CALL1ACT 
+SUBSMAX*call+subs)& n ) ") ; 

# request answer supervision be returned 

to caller 

glb_set (CALL1ANS+SUBSMAX* cal 1+subs, 

^vpline) ; 
^ endif 

# set forwarding call answered 

glb_set (FWRDlANS+SUBSMAX*call+subs, vpline) ; 

# now watch for disconnect 
sc_watch (vpline, "dl+-", 1) ; 

# check for barging subscriber inactive 

# and forwarding subscriber inactive 
if ( <glb_get (BARGlSUB+subs ) streq " " ) 
and (glb_get (BARG2SUB+subs) streq " H ) 
and (glb_get (FWRDlSUB+subs) eq 0) 
and (glb_get (FWRD2SUB+subs) eq 0) ) 

# must assume for now the subscriber 

answered 

# set our forwarding subscriber active 
glb_set (FWRDlSUB+SUBSMAX*cal 1+subs, 

netline) ; 

# reset call waiting request 
glb_set (CALLWAIT+subs , n " ) ; 
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endif 

vos log ( "Forwarding Conversation Loop") ; 
for (;;) 

# check for barging subscriber active 
if ( (glb_get (BARGlSUB+subs) strneq "") 
or (glb_get (BARG2SUB+subs) strneq "")) 
# set both forwarding subscribers 



inactive 



gib-set ( FWRDlSUB+subs , 
glb_set (FWRD2SUB+subs , 



n n ) 



netline 



endif 

# check for subscriber active on our 

if ( (glb_get (FWRDlSUB+subs) eq netline) 
or (glb_get (FWRD2SUB+subs) eq netline)) 
# check for call waiting request 
if (glb_get(CALLWAIT+subs) <> 0) 
# reset call waiting request 
glb_set ( CALLWAIT+subs , " " ) ; 



vcaller ' s conference 

\ 

LOGOFF) ; 



tones' (1305) .vox) ") 
three tones 



conference 



# delete our netline from 
del_conf (call, netline, vpline, 

voslog("sc_play( 'call waiting 
sc_play (vpline, "PR1305 .vox" ) ; # 

# add our netline to caller's 
add_conf (call, netline, LOGOFF) 



endif 



# check for selected caller active 
if 

(glb_get (CALLlACT+SUBSMAX*call + subs) <> 0) 

# selected caller active 

# check for unselected caller 

inactive 

if 

(glb_get (CALLlACT+SUBSMAX*modulo2 (call) +subs) eq 0) 

# selected caller 

active/unselected caller inactive 

# set unselected forwarding 

enKcrrihor S nacti VG 
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*modulo2 (call) +subs, "") ; 

# release unselected caller' 

conference if unused 

rel_ conf (modulo2 (call) ) ; 
endif 

else 

# selected caller inactive 

# check for unselected caller 

inactive 

if 

(glb_get (CALLlACT+SUBSMAX*modulo2 (call) +subs) eq 0) 
L - - „ - ; both callers .^inactive . 

# set both forwarding 



subscribers inactive 



conference if unused 
conference i f unused 



glb_set (FWRDlSUB+subs, " " ) ; 
glb_set (FWRD2SUB+subs, * M ) ; 

# release unselected caller' 

rel_conf (modulo2 (call) ) ; 

# release selected caller's 



rel__conf (call) ; 

else 

# selected caller 
inactive/unselected caller active 

XA # check for three way 

conference 

if ( <glb_get (FWRDlSUB+subs) 

eq 0) 

or (glb_get (FWRD2SUB+subs) 

eq 0) ) 

# three way conference 

not active 

# do NOT set selected 
forwarding subscriber inactive here 

voslog ( "TEST : Auto 

switch conference request") ; 

# switch to alternate 

call 

flash = "**" ; 
goto switch_conf ; 

else 

# three way conference 

active 

# set selected 

forwarding call inactive 
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+SUBSMAX*call+subs, "") ; 

forwarding subscriber inactive 
+SUBSMAX*call+subs, " " ) ; 

caller's conference if unused 



Jb<\ 

glb_set (FWRD1ACT 

# set selected 
glb_set (FWRD1SUB 



request 
request 

request" ) 



# release selected 
r e.l_cpn fj ca 1 1 ) - 

# select active call 
call = modulo2 (call) ; 

endif 
end if 
endif 
endif 

# check for forwarding tone input 
sc_clrdigits (vpline) ; 

code = sc_getdigits (vpline, 2, 3, 2) ; 
if (code eq T_MAXDT) 

flash = sc_digits (vpline) ; 

# check for priority call waiting 

if (flash streq "##") 

# set priority call waiting 

glb_set (CALLWAIT+subs, -netline) 

voslog( "Priority call waiting 

endif 



# check for forced voice mail request 
if (flash streq "#9") 

# check for caller active 

if 

(qlb get (CALLlACT+SUBSMAX*call+subs) <> 0) 

# start voicemail with 

announcement m 

s tar t_yoicemail (call, 1) ; 

endif 

vos log ( "Forced voice mail 

request") ; 

endif 

switch_conf: 

it ^onV for subscriber active on our 
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netline) 
netlihe) ) 
request 

active 
not active 



/70 

if ( (glb_get (FWRDlSUB+subs) eq 
or (glb_get (FWRD2SUB+subs) eq 

# check for conference switch 

if (flash streq 

# check for unselected call 

# and three way conference 

if _ 



( (gib_get (CALLlACT+SUBSMAX^inodulo2 (call) +subsT <> 0)" 

and ( (glb_get ( FWRDlSUB+subs ) 



eq 0))) 

conference request" ) 
request 



or (glb_get (FWRD2SUB+subs) 
voslog ( "Switch 

# reset call waiting 
glb_set (CALLWAIT+subs , 



# delete our netline 
^|rom selected caller's conference 

vpline, LOGON) ; 



del_conf (call, netline, 



forwarding subscriber active 
+SUBSMAX*call+subs, netline) ; 
forwarding subscriber inactive 
+SUBSMAX*modulo2 (call) +subs, " " ) 

caller's conference if unused 



# select next caller 
call = modulo2 (call) ; 

# set selected 
glb_set (FWRD1SUB 

# set unselected 

glb_set (FWRD1SUB 
* 

# release unselected 
rel_conf (modulo2 (call) ) 



forwarding 



# stop selected call's 
stop_forwarding (call , 0) 
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# (FUTURE PROGRAMMABLE 

OPTION) 

# stop selected call's 

voice mail . 

stop_voicemail (call) ; 



supervision be returned to selected caller 
SUP g lb_set(CALLlANS 



# request answer 

le 

+SUBSMAX*call*subs, vpline) ; , _ 

# set selected call's 

forwarding answered 

IO u glb_set (FWRD1ANS 

+SUBSMAX*call+subs , vpline) ; 

# abort selected 

caller's possible sc_play in progress 

sc_abort (glb_get 

(CALLlACT+SUBSMAX*call+subs) ) ; 

v voslog ( " sc_abort 

( " &glb_get (CALLlACT+SUBSMAX*call+subs) &" ) " ) ; 

v # add our vpline to 

selected conference . 

add_conf (call, vpline, 

LOGOFF) ; 

# play joining 

conference tones , Q 

sc_play tone (vpline, 

1000, 2000, -30, -30, 100) ; ' t *~\r> 

, voslog ( "sc_playtone(DOin 

conf)") ; 

# delete our vpline from 
del_conf (call, vpline, 



selected conference 
netline, LOGOFF) ; 

selected caller's conference 
LOGON) ; 



# add our netline to 
add_conf (call, netline. 



endif 
endif 

# check for conference switch 
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active 
not active 
<> 0) 
<> 0) 
eq 0) 
eq 0))) 

conference reques t " ) 

request 
"") ; 



/ "71 

# check for both callers 

# and three way conference 
if ( (glb_get (CALLlACT+subs) 
and (glb_get (CALL2ACT+subs) 
and ( (glb_get (FWRDlSUB+subs) 

or (glb_get (FWRD2SUB+subs) 
vos log (-" Three way-" - • 

# reset call waiting 
glb_set (CALLWAIT+subs , 



# request answer 
supervision be returned to both callers 

glb_set (CALL1ANS 

+SUBSMAX*call+subs, vpline) ; 

glb_set (CALL1ANS 
+SUBSMAX*modulo2 (call)+subs f vpline) ; 

# stop selected call ' s 

forwarding 

s top_f orwarding ( call , 0 ) 



OPTION) 
mail 

(call)) ; 

subscribers active 
netline) ; 
netline) ; 

calls answered 
vpline) ; 



# (FUTURE PROGRAMMABLE 

# stop unselected voice 
stop_voicemail (modulo2 

# set both forwarding 
glb_set (FWRDlSUB+subs, 
glb_set (FWRD2SUB+subs, 

# set both forwarding 
glb_set (FWRDlANS+subs # 
glb_set (FWRD2ANS+subs, 
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vpline) ; 

# set both forwarding 

netliries 

glb_set (FWRDlNET+subs , 

net line) ; 

glb_set (FWRD2NET+subs , 

net line) ; 

# delete unselected 

caller's neSline from, his conference 

del_conf (modulo2 (call) , 
glb_get (CALLlNET+SUBSMAX*modulo2 (call ) +subs) , 
g lb_get (CALLlACT+SUBSMAX*modulo2 (call) +subs) , LOGON) ; 

# get unselected 

caller 1 s conference number 

conf = 

glb_get (CALLlCNF+SUBSMAX*modulo2 (call) +subs) ; 

# check for using active 

specified conference 
* if ((conf > 0) and (conf 

<= CONFMAX) ) 

v v # check xf 

miselected caller's conference still in use 

if 

( (glb_get (BARGlSUB+SUBSMAX*modulo2 (call)+subs) eq 0) 

and 

(alb get (MAILlACT+SUBSMAX*modulo2 (call) +subs) eq 0)) 

# request 

conference deallocation 

msg put 

(mainpid, "E-fcconf ) ; 

xf ( (code = 

msg get (3)) strneq "E-OK") 

voslog 

("ERROR: code n &code& w when deallocating conference 
"Scconf) ; 

else 

voslog 

("Deallocating conference M &conf) ; 

# set 

unselected caller's conference inactive 

glb_set 

(CALLlCNF+SUBSMAX*modulo2 (call) +subs, " " ) ; 

endif 
endif 

else 

"Ac! r>rr ( "PPPOP • 
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endif 

# abort unselected 
caller's possible sc_play in progress 

sc_abort (glb_get 
(CALLlACT+SUBSMAX*modulo2 (call) +subs) ) ; 

voslog ( " sc_abort 
( w &glb_get (CALLlACT+SUBSMAX*modulo2 (call ) +subs) &" ) - ) 



selected conference 
LOGOFF) ; 

conference tones 

1000, 2000, -30, -30, 100) 

conf)") ; 

selected conference 
net line, LOGOFF) ; 



# add our vpline to 
add_conf ( call , vpline , 

# play joining 
sc__playtone (vpline, 
voslog ( "sc_playtone ( join 

# delete our vpline from 
del_conf ( call , vpline , 



V # add unselected 

caller's netline to selected caller's conference 

add_conf (call, 
glb_get (CALLlNET+SUBSMAX*modulo2 (call ) +subs) , LOGON) ; 

# check for unselected 

conference inactive 

if 

(gib _jget (CALLlCNF+SUBSMAX*modulo2 (call) +subs) strneq n 

voslog ( "TEST: 

Deselected conference 

*&glb_get (CALLlCNF+SUBSMAX*modulo2 (call ) +subs) & M not 
inactive") ; 

endif 

# update unselected 
caller's conference to selected caller's conference 

glb_set (CALL1CNF 

+SUBSMAX*modulo2 (call) +subs, 

glb_get (CALLlCNF+SUBSMAX*call + subs) ) ; 

endif 
endif 
endif 
endif 
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# check for subscriber active on our 

netline . 

if ( (glb_get (FWRDlSUB+subs) eq netline) 
or (glb_get (FWRD2SUB+subs) eq netline)) 

# check for either caller active 
if 

( (glb_get (CALLlACT+SUBSMAX*call+subs) eq 0) 

and 

(glb_get (CALLlACT+SUBSMAX*modulo2 (call)+subs) eq 0) ) 

hangup ( ) ; 

— .. ...-"•* __.•-„. : -break. ;. .'. , . _ 

endif 

else 

# check for caller and barger not 

active on this call 

if 

( (glb_get (CALLlACT+SUBSMAX*call+subs) eq 0) 

and 

<glb_get (BARGlSUB+SUBSMAX*call+subs) eq 0)) 

hangup ( ) ; 
break ; 
endif 
endif 
endf or 
\ endfor 
erid 

onsignal 

voslog ( "Onsignal n ) ; 
hangup ( ) ; 
restart ; 

end ^ 

func hangup () 

# abort our multitasking calls xn progress 

sc_abort (vpline) ; 

# wait for all our multitasking calls to finish 
for (code = 1; ( sc.stat (vpline) <> 0) and (code <- 

20) ; code++) 

sleep (5) ; 
endfor 

if (sc.stat (vpline) <> 0) 

voslog ("ERROR: 10 seconds on vpline &vplme& 

without idle status-) ; 
endif 

# put vpl ine onhook 

while ((code = sc_onhook (vpline ) ) <> T_ONH) 
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sleep (10) ; 
endwhile 

voslog ( "sc^onhook ( n &vpline&" ) n ) ; 

# delete vpline from our conference 
del_conf (call, vpline, netline, LOGOFF) ; 

# delete netline from our conference 
del_conf (call, netline, vpline, LOGON) ; 

# remove vpline receive from netline transmit 
if ((code = Sbrk(vpline, netline, SSAS_0NH00K, 

SSAL_N0) ) - <> 0) ----- - - — '•• — - 

voslog ( "Sbrk( n &vpline&" , "&netline& n ) code 
" &code& " error " ) ; 
e^t^e 

voslog ( "Sbrk( "&vpline& M , M &netline& M ) : 
"&Sstatus (vpline) ) ; 
endif 

if ((netline >= NETBGN) and (netline <= NETEND) ) 

# remove netline receive from vpline transmit 

# and enable netline SS96 alerting 

if ((code = Sbrk(netline, vpline, SSAS_ONHOOK, 
SSAL_YES) ) <> 0) 

voslog ( "Sbrk( n &netline& M , "&vpline& tt ) code 
" &code& " error " ) ; 
:> else 

voslog( n Sbrk( tt &netline& w , n &vpline&" ) : 
"ScSstatus (netline) ) ; 
endif 

else 

# remove netline receive from vpline transmit 

# and disable netline SS9 6 alerting 

if ((code = Sbrk(netline, vpline, SSAS_0NH00K, 
SSAL_N0) ) <> 0) 

voslog ( w Sbrk("&netline& M , "&vpline& w ) code 
M fccodeSe " error " ) ; 

else 

voslog ( "Sbrk( tt &netline& M , "&vpline&" ) : 
n &Sstatus (netline) ) ; 
endif 
endif 

# release netline/vpline allocations 
deallocO 

# check for active call 
if (call strneq " H ) 

# check for forwarding subscriber answered on 
our netline 
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if ( (glb_get (FWRDlSUB+subs) eq netline) 
or (glb_get (FWRD2SUB+subs) eq netline)) 

# set forwarding subscribers inactive 
glb_set (FWRDlSUB+subs, "") ; 
glb_set (FWRD2 SUB + subs, "") ; 

' endif 

# set our netline inactive 

glb_set (FWRDlNET+SUBSMAX*call+subs, " " ) ; 

# v set our -call progress inactive • 
glb_set (FWRDlCPA+SUBSMAX*call+subs , " " ) ; 

# check for forwarding answered 

if (glb_get(FWRDlANS+SUBSMAX*call+subs) <> 0) 

# set forwarding task inactive and stopped 

(do last) ^ , 

glb_set(FWRDlACT+SUBSMAX*call+subs, 0) ; 

# set forwarding task inactive (do last) 
glb_set(FWRDlACT+SUBSMAX*call+subs, "") ; 

endif 
endif 



# release caller's conference if unused 
^ rel_conf (call) ; 

# set task debug screen status 
scr_stat("Idle") ; 

endfunc 

func deallocO 

# release netline/vpline allocations 
msg_put(mainpid, " D " &ne t 1 ine&vpl ine ) ; 
if ((code = msg_get(3)) strneq "D-OK") 

vos log ("ERROR: code "&code&" when deallocating 
netline "&netline) ; 

endif 
endfunc 

func stop_forwarding(scall, sforce) 

# check for not forced stop request 

# and for forwarding answered 

# and for not "transparent" forwarding mode 
if ( (sforce eq 0) 

and (glb_get(FWRDlANS+SUBSMAX*scall+subs) <> 0) 
and (glb_get(FORWARD+subs) strneq 
glb_ge t ( C ALLER_DID+ subs ) ) ) 
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sem_set ( SEM_FWRD+subs ) ; 

# check for forwarding active 

if (glb_get (FWRDlACT+SUBSMAX*scall+subs) <> 0) 
voslog ( " stop_f orwarding ( ) " ) ; 

# delete forwarding netline from caller's 
conference 

del_conf ( scall , 
glb_get (FWRDlNET+SUBSMAX*scall+subs) , 
glb_get (FWRDlACT+SUBSMAX*scall+subs) , LOGON) ; 

# set call answered so forward task marks 
itself inactive and stopped 

glb_set (FWRDlANS+SUBSMAX*call+subs, vpline) ; 

# abort f orwarding task 

sc_hangup(glb_get (FWRDlACT+SUBSMAX*scall+subs) ) 

voslog ( " sc_hangup ( " &glb_get (FWRD1ACT+SXJBSM 
AX*scall+subs)& tt ) n ) ; 

# set forwarding task inactive and stopped 
glb_set (FWRDlACT+SUBSMAX*scall+subs, 0) ; 

endif 

sem_clear (SEM_FWRD+subs) ; 
endfunc 

func s tar t_voicemail (scall, smsg) 

# check for voice mail active 

if (glb_get (MAILlACT+SUBSMAX*scall+subs) eq 0) 

# request voice mail vpline task be started 
nisg_put (mainpid, "V"&scall&subs) ; 

code = msg_get(3) ; 

if (substr (code, 1, 1) strneq "V") 

vos log ( " ERROR : code " &code& " when 
allocating voice mail vpline") ; 
else 

# set voice mail task active 
glb_set (MAILlACT+SUBSMAX*scall+subs, 
substr(code, 2, 99)) ; 

if (smsg <> 0) 

# add our vpline to conference 
add^conf ( seal 1 , vpl ine , LOGOFF ) ; 



message 

mail ' (030) .vox) M ) 



# play 'connecting to voice mail' 
voslog ( M sc_play ( 1 to voice 
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sc_play(vpline, "PR0030 .vox" ) ; 

# delete our vpline from conference 
del_conf (scall, vpline, netline, 

LOGOFF) ; 

endif 
endif 
endif 
endfunc 

func stop^voic email (scall) _ 

sem_set ( SEM_MAIL+subs ) ; 

# check for voice mail active 

if (glb_get(MAILlACT+SUBSMAX*scall+subs) <> 0) 
voslog ( "stop_voicemail ( ) " ) ; 

# delete voice mail netline from caller's 

conference 

del_conf ( scall , 
gib get (MAILlNET+SUBSMAX*scall+subs) , 
glb_get (MAILlACT+SUBSMAX*scall+subs) , LOGON) ; 

v # abort voice mail task 

% sc_hangup (glb_get (MAILlACT+SUBSMAX*scall+subs ) ) 

voslog ( " sc.hangup ( - &glb_get (MAIL1ACT+SUBSM 
AX*scall+subs) &" ) " ) ; 

# set voice mail task inactive and stopped 
glb_set(MAILlACT+SUBSMAX*scall+subs, 0) ; 

endif 

sem_clear ( SEM_MAIL+subs ) ; 
endfunc 

func modulo2 (scall) 

return ( (scall+1) - (scall+1) /2*2) ; 

endfunc 

include "conf subs . inc" # conferencing 

subroutines 
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APPENDIX IV 



SOURCE CODE LISTING OF A PAGE TASK 
USED BY MAIN PROGRAM 



# PAGE.VS - D121 line task 
# 

# Designed to work in concert with MAIN.VS 
# 

# — 

dec 

include "datmod. inc" # SS96 library 

definitions 

include "global . inc" # define global variable 

numbers 

var code: 16 ; # return value from function 

calls 

var vpline: 3 ; 
var netline:3 ; 
var mainpid:3 ; 

var subs : 3 ; # subscriber number 

var sdate:7 ; # starting date 

var stime:7 ; # starting time 

var line: 3 ; # needed for scr_stat 

end 

program 

# Initializations 

vpline = arg() ; 

line = vpline ; #. debug only 

if (glb_get (MAINFLG) <> 99) # if first time 

initialization 

mainpid = glb_get (MAINPID) ; 

# inform main task of our pid 
msg_put (mainpid, getpid()) ; 



# wait for main task to be ready to go 
while (glb_get (MAINFLG) <> 99) 
endwhile 
endif 



# Begin call processing 
sc_use (vpline) ; 
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# Set minimum detected wink duration to 50 msec (from 
100ms default) 

sc_setparm (vpline, 518, 5) ; 

# Set maximum detected wink duration to 300 msec (from 
200ms default) 

sc_setparm (vpline, 519, 30) ; 

# Turn on speech card function calls trace 

# sc_trace (vpline , 1) ; 

# Attempt to go on-hook 

sc_watch (vpline, "+-", 1) ; 

while ((code = sc_onhook (vpline) ) <> T_ONH) 

voslog( "ERROR: "&code&" - onhook failure") ; 
sleep (10) ; 

endwhile 

# Wait for message from main task indicating start of 
call 

for ( ; ; ) 

# ignore disconnects 
sc_watch (vpline, "lw+-", 1) ; 



s while (length (vpline = msg_get (3600) ) eq 0) 

endwhile . 
if ((vpline < PAGEBGN) or (vplxne > PAGEEND) ) 
voslog( "ERROR: invalid vpline number 
"&vpline&" message received") ; 

continue ; 
endif ' 

while (length (subs = msg_get(3) ) eq 0) 
endwhile 

if ((subs < 0) or (subs >= SUBSMAX) ) 

voslog( "ERROR: invalid subscriber number 
"&subs&" message received") ; 

continue ; 
endif 

# ask alternate outbound netline be allocated 
msg_put (mainpid, "A"&vpline) ; 
if ((code = msg_get(3)) strneq "A-OK") 
voslog(" ERROR: code "&code&" when 
allocating outbound netline") ; 

continue; 
endif 
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endwhile 

if ( (netline < ALTBGN) or (netline > ALTEND) ) 
vos log ( "ERROR: invalid netline number 



# release netline/vpline allocations 
deallocO ; 
continue ; 
endif 

#defer hang up jump to onsignal 
sc_sigctl ( "d M ) ; 

# drive vpline receive from netline transmit 



if ((code = Scon(vpline, netline, SSAS_PASS, 
SSAL_NO) ) <> 0) 

voslog( "Scon( "&vpline& M , "&netline&" ) code 
"&code& M error") ; 

else 

voslog ( "Scon ( "&vpline&"', "&netline& w ) : 
"&Sstatus (vpline) ) ; 
endif 

# drive netline receive from vpline transmit 
if ((code = Scon(netline, vpline, SSAS_PASS, 
SSAL_N0) ) <> 0) 

voslog ( "Scon ( "&netline&" , "&vpline&" ) code 
Sjf&code&" error") ; 



voslog ( "Scon( "&netline£t" , "Scvplinefc" ) : 
"&Sstatus (netline) ) ; 
endif 



# throw away deferred hang ups 
sc_sigctl ( "c" ) ; 

# set task debug screen status 
scr_stat ( "P-"&netline) ; 

# save the initial time 
sdate = date ( ) ; 

stime = time() ; 



# go off hook 

if {(code = sc_of f hook (vpline) ) <> T_0FFH) 

voslog ( "ERROR: code "&code&" while putting 



"&netline&" message" ) 




else 



dial_page : 



vpline "&vpline&" offhook") 

goto retry ; 

else 



voslog ( M sc_of fhook( "&vpline&" ) " ) 



endif 
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# wait one second for next event report 
code = sc_wait (vpline, 10) ; 

voslog( "sc_wait ( "&vpline&" , 10) = "&code) ; 

# check for loop current event report 
if (code <> T_LC0N) 

voslog( "ERROR: Loop current timeout on 

vpline "&vpline) ; 

goto retry ; 
■„ endif 

# wait one second for" next event report 
code = sc_wait (vpline, 10) ; 
voslog("sc_wait("&vpline&",10) = "&code) ; 

# check for wink event report 
if (code <> T_WKRECV) 

voslog( "ERROR: Wink timeout on vpline 

"&vpline) ; 

goto retry ; 
endif 

voslog( "Dialing pager "&glb_get (PAGER+subs) ) ; 

# call the paging system - wait for completion 
^ if ((code = sc_dial (vpline, 

g lb_get (STRATUS_PRE) &glb_get (PAGER+subs) &glb_get 

(STRATUS_PST) ) ) <> T_DIAL) 

voslog( "ERROR: code "&code&" while dialing 

pager") ; 

goto retry ; 
endif 

# wait 18 seconds for next event report 
code = sc_wait (vpline, 180) ; 
voslog( n sc_wait("&vpline&",180) = "&code) ; 

# check for loop current event report 

if (code <> T_LCON) . . 

voslog( "ERROR: Answer supervision timeout 

on vpline "&vpline) ; 

if (timesub(date() , time(), sdate, stime) 

<= 1Q ) , 

# put vpline onhook 

if ((code = sc_onhook (vpline) ) <> 

T ONH ) 

_ voslog( "ERROR: code n &code&" 

while putting vpline "&vpline&" onhook") ; 

else . . 
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signal 



endif 

# wait for onhook recognition 
sleep (10) ; 

goto dial_page ; 

else 

# disconnect 
hangup ( ) ; 

# look for next page request 
continue ; 

endif 

else - r ~ 

voslog ( "Answer supervision" ) ; 
endif 

# now watch for disconnect 
sc_watch(vpline, "dl+-", 1) ; 

# delay for paging system to give proceed 
sleep (20) ; 



voslog ( "Sending to pager caller number 
"&glb_get (CALLER_NUMB+subs ) ) ; 

# enter caller's number into paging system 
^\ while ((code = sc_dial (vpline, 

glb_get (CALLER_NUMB+subs) ) ) <> T_DIAL) 

voslog ("ERROR: code "&code&" while sending 
Caller ID to paging system" ) ; 

sleep (10) ; 
: endwhile 



ONLY?) 



# delay for paging system to disconnect (TEST 
sleep (40) ; 



# disconnect 
hangup ( ) ; 
endf or 

end 

onsignal 

voslog ( "Onsignal" ) 
hangup ( ) ; 
restart ; 

end 

f unc hangup ( ) 
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# abort our multitasking calls in progress 
sc_abort (vpline) ; 

# wait for all our multitasking calls to finish 
for (code = 1; (sc_stat (vpline) <> 0) and (code <= 

20) ; code++) 

sleep (5) ; 
endf or 

if (sc_s tat (vpline) <> 0) 

voslog( "ERROR: 10 seconds on vpline "&vpline&" 
without idle status") ; 
endif 

# put vpline onhook 

while ((code = sc_onhook (vpline) ) <> T_0NH) 

voslog( "ERROR: code "&code&" while putting 
vpline "&vpline& n onhook") ; 
sleep (10) ; 
endwhile 

voslog( "sc_onhook( "&vpline&" ) " ) ; 

# remove vpline receive from netline transmit 
if ((code = Sbrk(vpline, netline, SSAS_ONHOOK, 

SSAL_N0) ) <> 0) 

\ voslog( "Sbrk( "&vpline&" , "&netlme& M ) code 

"~&code&" error") ; 
else 

voslog( "Sbrk( "&vpline&" , "&netline&" ) : 
"&Sstatus (vpline) ) ; 
endif 

if ((netline >= NETBGN) and (netline y<= NETEND) ) 

# remove netline receive from vpline transmit 

# and enable netline SS96 alerting 

if ((code = Sbrk(netline, vpline, SSAS_0NH00K, 

SSAL_YES)) <> 0) . 

voslog("Sbrk("&netline&" , "&vpline&") code 

"&code&" error") ; 
else 

voslog("Sbrk("£cnetline&" , "&vpline&") : 
"&Sstatus (netline) ) ; 
endif 

else 

# remove netline receive from vpline transmit 

# and disable netline SS96 alerting 

if ((code = Sbrk(netline, vpline, SSAS_ONHOOK. 

SSAL_NO) ) <> 0) . « 

voslogl -Sbrk("&netline&" , "&vpline&" ) code 

"&codeSc" error") ; 
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"&Sstatus (netline) ) ; 
endif 
endif 

#* release netline/vpline allocations 
dealloc() ; 

# set task debug screen status 
scr_stat ("Idle") ; 

endfunc 

func deallocO 

# release netline/vpline allocations , 

msg put (mainpid, "D"&netline&vpline) ; 

if ((code = msg_get ( 3 ) ) strneq "D-OK") 

voslog( "ERROR: code "&code&" when deallocating 
netline "&netline) ; 

endif 
endfunc 
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APPENDIX V 

SOURCE CODE LISTING OF A VOICE MAIL TASK 
USED BY THE MAIN PROGRAM 



* 

# VMAIL.VS - D121 lxne task 

# Des igned to-work .in^onqjext^JdJth MAIN . VS 
# 

# 



dec 

inc lude " da tmod . inc " 
definitions 

include "global . inc" 

numbers 

var code: 16 ; 
calls 

var vpl ine : 3 ; 
Vl var netline:3 ; 
var mainpid:3 ; 
var subs : 3 ; 
var call: 3 ; 
var conf:3 ; 
var sdate : 7 ; 
var stime:7 ; 

var stats: 16 ; 
status (conf subs) 
var line: 3 ; 

end 

program 

# Initializations 



vpl ine = arg() ; 
line = vpline ; 
if (glb_get (MAINFLG) <> 9S) 
initialization 

mainpid = glb_get (MAINPID) 
msg_put (mainpid, getpid ( ) ) 
task of our pid 



# SS96 library 

# define global variable 

# return value from function 



# subscriber number 

# call number 

# conference number 

# starting date 

# starting time 

# beginning net line 

# needed for scr_stat 



# debug only 

# if first time 



# inform main 
# wait for main task to be ready to go 
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endwhile 
endif 

# Begin call processing 

sc_use (vpline) ; 

# Set minimum detected wink duration to 50 msec (from 
100ms default) 

sc_setparm (vpline, 518, 5) ; 

# Set maximum detected wink duration to 300 msec (from 
200ms default) 

.. . — 'sc_setparm (vpline, 519, 30) ; — — ■ 

# Turn on speech card function calls trace 

# SjC^t race (vpline, 1) ; 

# Wait for onhook complete 

sc_watch (vpline, "+-", 1) ; 

while ((code = sc_onhook (vpline) ) <> T_0NH) 

voslog( "ERROR: code "Sccodefc" - onhook failure") 

» 

sleep (10) ; 
endwhile 

# Wait for message from main task indicating start of 
call 

^ for (;;) 

# initialize netline in case of reorder 
netline = 0 ; 

# ignore disconnect 
sc_watch (vpline, "lw+- n , 1) ; 

while (length (vpline = msg_get (2f600) ) eq 0) 
endwhile 

if ((vpline < MAILBGN) or (vpline > MAILEND) ) 
vos log ( "ERROR: invalid vpline number 
"&vpline& tt message received") ; 

# set voice mail inactive and stopped 

# (call not set 

yet) glb_set (MAILlACT+SUBSMAX*call + subs , 0) ; 

continue ; 
endif 

# get subscriber number 

while (length(subs = msg_get(3)) eq 0) 
endwhile 

if ((subs < 0) or (subs >= SUBSMAX) ) 

vos log ( "ERROR: invalid subscriber number 
-&subs&" message received") ; 
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# set voice mail inactive and stopped 

# (call not set 

yet) glb_set (MAILlACT+SUBSMAX*call+subs, 0) ; 

continue ; 
endif 

# get call number 

while (length(call = msg_get(3)) eq 0) 
endwhile 

if ((call < 0) or (call >= CALLMAX) ) 

voslog( "ERROR: invalid call number 
"&call&" message received") ; 

# set voice mail inactive and stopped 

# (call # 

invalid) glb_set (MAILlACT+SUBSMAX*call+subs, 0) ; 

continue ; 
endif 

# request outbound netline allocation 
msg_put (mainpid, "A"&vpline) ; 

if ((code = msg_get(3)) stmeq "A-OK") 
voslog( "ERROR: code "&code&" when 
allocating outbound netline - ) ; 



play_reorder (call) ; 

# set voice mail inactive and stopped 
glb_set(MAILlACT+SUBSMAX*call+subs, 0) ; 

# release caller's conference if unused 
rel_conf (call) ; 

# get next vmail task request 
continue ; 

endif 

# get allocated netline 

while (length (netline = msg_get(3)) eq 0) 
endwhile 

if ( (netline < ALTBGN) or (netline > ALTEND) ) 
voslogC ERROR: invalid netline number 
"&netline&" message") ; 

play_reorder (call) ; 

# release net line /vpline allocations 
deallocO ; 



# set voice mail inactive and stopped 
rriv, (MAILlACT+SUBSMAX*call+subs, 0) ; 
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# release caller's conference if unused 
rel__conf (call) ; 

# get next vmail task request 
continue ; 

endif 

# set voice mail netline 

glb_set (MAILlNET+SUBSMAX*call+subs , netline) ; 

# defer hang up jump to onsignal 
sc_sigctl ( "d" ) ; 



# drive alternate netline receive from vpline 

transmit 

-T ^ if ((code = Scon(netline, vpline, SSAS_PASS, 
SSAL_NO)) <> 0) 

voslog ( "Scon ( "&netline&" , "&vpline&° ) code 
"&code&" error") ; 
else 

voslog ( "Scon ( "&netline&" , "&vpline&" ) : 
"&Sstatus (netline) ) ; 
endif 

# drive vpline receive from alternate netline 

transmit 

\if ((code = Scon(vpline, netline, SSAS_PASS, 
SAL_N0) ) <> 0) 

voslog ( "Scon ( "&vpline£c" , "&netline&" ) code 
" &code& " error " ) ; 
else 

voslog ( "Scon( "&vpline&" , "&netline&" ) : 
"&Sstettus (vpline) ) ; 
endi f 

# throw away deferred hang ups 
sc_sigctl ( "c" ) ; 

# set task debug screen status 
scr_stat ( "V- "fcnetline) ; 

# save the initial time 
sdate = date ( ) ; 

stime = time() ; 
dial_mail : 

# go off hook 

if ((code = sc_of f hook (vpline ) ) <> T_OFFH) 

voslog ( "ERROR: code "&code&" while putting 
vpline "&vpline& w offhook") ; 

goto retry ; 

else 
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voslog( "sc_of fhook( "frvplinefr" ) " ) ; 
endif 

# wait one second for next event report 
code = sc_wait (vpline, 10) ; 

voslog ("sc_wait(" frvpline* " , 10) = "&code) ; 

# check for loop current event report 
if (code <> T_LC0N) 

voslog ( " ERROR : Loop current timeout on 

vpline "frvpline) ; ...... 

goto retry ; 
endif 

# wait one second for next event report 
code = sc_wait (vpline, 10) ; 

voslog ("sc_wait("frvpline&" ,10) = "&code) ; 

# check for wink event report 
if (code <> T_WKRECV) 

voslog ( "ERROR: Wink timeout on vpline 

"frvpline) ; 

goto retry ; 
endif 

V \ voslog ("Dialing voice mail number 

"frglb_get (VOICEMAIL+subs) ) ; 

# dial the voice mail number - wait until 

dialing complete 

if ((code = sc_dial (vpline, 
glb_get ( STRATUS_PRE) frglb_get (VOICEMAIL+subs ) frglb_get 

(STRATUS_PST) ) ) <> T_DIAL) ; 

v voslog ( "ERROR: code "&code&" while dialing 

voice mail number") ; 

goto retry ; 
endif 

# add voice mail netline to current caller's 

conference 

add_conf (call, netline, 1) ; 

# wait 18 seconds for next event report 
code = sc_wait (vpline, 180) ; 

voslog ("sc_wait("&vpline&", 180) = "&code) ; 

# check for loop current event report 
if (code <> T_LCON) 

vos log ( "ERROR: Answer supervision timeout 

on voline "frvpline) ; 
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message 



# delete netline from our conference 
del_conf (call , netline, vpline, 1) ; 

retry: 

if (timesub(date() , time(), sdate, stime) 

<= 10) 

# put vpline onhook 

if ((code = sc_onhook (vpline) ) <> 

T_0NH) 

vos log ( "ERROR: code "&code&" 
while putting vpline "&vpline&" onhook") ; 

else 

voslog ( " sc_onhook ( "ScvplineSc" ) " ) 
....... endif 

# wait for onhook recognition 
sleep (10) ; 

goto dial_mail ; 

else 

# disconnect and look for next vmail 

hangup ( ) ; 
continue ; 
endif 

else 

voslog ( "Answer supervision" ) ; 
endif 

# request answer supervision be returned to 
glb_set (CALLlANS+SUBSMAX*call+subs f vpline) ; 

# now watch for disconnect 
sc_watch (vpline, "dl+-", 1) ; 

for (;;) 

# check for caller inactive 

# and barger inactive 

# and forwarding inactive 
if (((call >= CALLMAX) or 

(glb_get (CALLlACT+SUBSMAX*call+subs) eq 0)) 

and ((call >= BARGMAX) or 
(glb_get (BARGlSUB+SUBSMAX*call+subs) eq 0)) 

and ((call >= FWRDMAX) or 
(glb_get (FWRDlACT+SUBSMAX*call+subs) eq 0))) 

hangup ( ) ; 
break ; 
endif 
endfor 
endfor 

end 



\ 

caller 
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onsignal 

voslog( "Onsignal" ) ; 
hangup ( ) ; 
restart ; 

end 

func hangup () 

# abort our multitasking calls in progress 
sc^abort (vpline) ; 

# wait for all our multitasking calls to finish 
for (code = 1; (sc_stat (vpline) <> 0) and (code <= 

20) ; code++) 

sleep (5) ; 
endf or 

if (sc_s tat (vpline) <> 0) 

voslog( "ERROR: 10 seconds on vpline "&vpline&" 
without idle status") ; 
endi f 

# put vpline onhook 

while ((code = sc_onhook (vpline) ) <> T_ONH) - 

voslog( "ERROR: code "&code&" while putting 
proline "&vpline&" onhook") ; 
^ sleep (10) ; 

endwhile 

voslog( "sc_onhook("&vpline&" ) " ) ; 

# delete net line from our conference 
del_conf (call, netline, vpline, 1) ; 

# remove vpline receive from netline transmit 
if ((code = Sbrk(vpline, netline, SSAS_0NH00K, 

SSAL_NO)) <> 0) . 

voslog("Sbrk("&vpline&" , "&netline&" ) code 

"&code&" error") ; 
else 

voslog("Sbrk("&vpline& n , "&netline&") : 
"SeSstatus (vpline) ) ; 
endif 

if ( (netline >= NETBGN) and (netline <= NETEND) ) 

# remove netline receive from vpline transmit 

# and enable netline SS96 alerting 

if ((code = Sbrk(netline, vpline, SSAS_ONHOOK, 

SSAL_YES) ) <> 0) m 

voslog( "Sbrk("&netline&" , "&vpline&") code 

"&code&- error") ; 
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"&Sstatus (netline) ) ; 
endif 

else 

# remove netline receive from vpline transmit 

# and disable netline SS9 6 alerting 

if ((code = Sbrk(netline, vpline, SSAS__ONHOOK, 
SSAL_NO)) <> 0) 

voslog( w Sbrk( M &netline& " , "&vpline&" ) code 
" &code& " error " ) ; 

else 

voslog("Sbrk( M &netline&", "Scvplinefc" ) : 
"&Sstatus (netline) ) ; 

;r . endif — ~ - 

endif 

# release netline/vpline allocations 
deallocO ; 

if (call strneq " " ) 

# set voice mail netline inactive 
glb_set (MAILlNET+SUBSMAX*call+subs , nn ) ; 

# check for request for voicemail to not be 
marked as not having run 

if (glb_get (MAILlACT+SUBSMAX*call+subs) strneq 

« n J 

R # set voice mail inactive but stopped (do 

%ast) 

glb_set (MAILlACT+SUBSMAX*call+subs, 0) ; 
endif 
endif 

# release selected conference if unused 
rel_conf (call) ; 

# set task debug screen status 
scr_stat("Idle") ; 

endfunc 

func dealloc() 

# release netline/vpline allocations 
msg_put (mainpid, "D^&netline&vpline) ; 
if ((code = msg_get(3)) strneq "D-OK" ) 

voslog ( "ERROR: code M &code&" when deallocating 
netline " fcnetline) ; 

endif 
endfunc 

func play_reorder ( scall ) 

# add our vpline to caller's conference 
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\9S 

add_conf (scall, vpline, 0) ; 

vos log ( n sc_play tone ( reorder ) fl ) ; 

# play reorder tones for 20 seconds 

for (code = 1; code <= 40; code++) 

sc_playtone (vpline, 480, 620, -24, -24, 30) ; 

# delay between tones 

sleep (2) ; 
endfor 

# "delete our vpline from caller 's conference 
del_conf (scall, vpline, netline, 0) ; 
endfunc 

func modulo2 (scall) 

return ( (scall+1) - (scall+1) /2*2) ; 
endfunc 

include w conf subs Zinc n # conferencing 

subroutines 
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APPENDIX VI 

SOURCE CODE LISTING USED BY INBOUND TASK 
FOR PHONE NUMBER PLAYBACK 



# spk_9 : Speak one digit 
# 

# ARGUMENT 

# a_num Digit to speak 0..9,*,# _ 

# RETURNS 

# Return code from sc_play 
# 

# No attempt is made to validate the a_num argument- 

func spk_9 (a_num) 

if (a_num streq "*") 

return sc_play ( 1 ine , " c : \ vos \ src \ STAR . vox " ) ; 
endif 

if (a_num streq "#") 

return sc_play (line, M c : \vos\ src \ POUND. vox" ) ; 
endif 

return sc_play (line , 
\"c: \vos\src\PR0 ,, &(189+a_num) &" .vox" ) ; 
^nd 
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APPENDIX VII 

SUBROUTINE LISTING DEFINING CONSTANTS 
AND VARIABLES USED BY ALL TASKS 



# GLOBAL . INC 

# .Global, .variables 

const SUBSMAX = 7 ; 

const CALLMAX = 4 ; 
calls per subscriber 

const BARGMAX = 2 ; 
calls per subscriber 

const FWRDMAX = 2 ; 
calls per subscriber 

const MAILMAX = 4 ; 
calls per subscriber 

const CONFMAX =16 ; 
(16 x 6 way = maximum) 

const NETBGN = 25 ; 
Channel 
F const NETEND = 28 ; 
channel (654-521x) 

const NETEND =34 ; 
channel (654-578x) 

const ALTBGN = 73 ; 
alternate channel 

const ALTEND = 82 ; 
channel 

const GDIDBGN = 1 ; 
vpline 

const GDIDEND = 4 ; 

const FWRDBGN = 5 ; 
vpline 

const FWRDEND = 8 ; 

const MAILBGN = 9 ; 

const MAILEND = 10 

const PAGEBGN = 11 

const PAGEEND = 12 

const LOGOFF = 0 ; 
voslog off 

const LOGON = 1 ; 



# number of subscribers 

# maximum inbound public 

# maximum active barger 

# maximum forwarding 

# maximum voice mail 

# number of conferences 



# beginning PEB2 net line 

# ending PEB2 net line 

# ending PEB2 net line 



# beginning PEB4 

# ending PEB4 alternate 



# beginning GETDID 

# ending GETDID vpline 

# beginning FORWARD 

# ending FORWARD vpline 

# beginning VMAIL vpline 

# ending VMAIL vpline 

# beginning PAGE vpline 

# ending PAGE vpline 

# conference subroutines 
# conference subroutines 
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# Semaphore reference numbers 

const SEM_FWRD =48 ; # use when accessing 

FWRDnACT (one per subscriber) 

const SEM_MAIL = SEM_FWRD+SUBSMAX ; # use when 
accessing MAILnACT (one per subscriber) 

const SEM_next = SEM_MAIL+SUBSMAX ; # leave room 
for SEM_MAIL+subs accesses 

# maximum semaphore is 63 

# Global memory reference numbers 



.const MAINPID = 0 ; # main task pid 

const MAINFLG = MAINPID+1 ; # main task go-ahead 

flag 

const STRATUS_PRE = MAINFLG+1 ; # Stratus dialing 
preamble 

const STRATUS_PST = STRATUS_PRE+1 ; # Stratus 
dialing postamble 

const next = STRATUS_PST+1 ; # room for more 
globals (up to 1*SUBSMAX) 



o 
o 



const 


PSTN_PRE = 


1*SUBSMAX 


7 


# 


public network 


dialing preamble 








public network 


const 


PSTN_PST = 


2*SUBSMAX 




# 


dialing postamble 








forwarding phone 


^ const 


FORWARD = 


3*SUBSMAX 


/ 


# 


number #1 












const 


PAGER = 


4*SUBSMAX 


/ 


# 


pager phone 


number 










voice mail phone 


const 


VOICEMAIL = 


5*SUBSMAX 


/ 


# 


number 












rcpnst 


CALLER_NUMB = 


6*SUBSMAX 


7 


# 


caller phone 


number 












const 


CALLER_DID = 


7*SUBSMAX 


7 


# 


caller DID 


const 


BARGE_DID = 


8*SUBSMAX 


7 


# 


barger DID 


const 


PRGRM_PIN = 


9*SUBSMAX 


7 


# 


programing PIN 


const 


BARGE_PIN = 


10*SUBSMAX 




# 


barge in PIN 


const 


CALLWAIT = 


11*SUBSMAX 




# 


call waiting flag 


const 


CALL1ACT = 


12*SUBSMAX 




# 


caller #1 active 


(vpline) 










caller #2 active 


const 


CALL2ACT = 


13*SUBSMAX 


/ 


# 


(vpline) 










caller #3 active 


const 


CALL3ACT = 


14*SUBSMAX 


t 


# 


(vpline) 










caller #4 active 


const 


CALL4ACT = 


15*SUBSMAX 


t 


# 


(vpline) 










caller #1 


const 


CALL1CNF = 


16*SUBSMAX 


$ 


# 


conference 










const 


CALL2CNF = 


17*SUBSMAX 


» 


# 


caller #2 
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conference 

const CALL 3 CNF = 
conference 

const CALL4CNF = 
conference 

const CALL1ANS = 
supervision (vpline) 

const CALL2ANS = 
supervision (vpline) 

const CALL3ANS = 
supervision (vpline) . 

const CALL4ANS = 
supervision (vpline) 

const CALL1NET = 

const CALL2NET = 

const CALL3NET = 

const CALL4NET = 

const BARG1SUB = 
subscriber active (netline) 

const BARG2SUB = 29*SUBSMAX 
subscriber active (netline) 



18*SUBSMAX 

19*SUBSMAX 

20*SUBSMAX 

21*SUBSMAX 

22*SUBSMAX 

23*SUBSMAX~ 

24*SUBSMAX 
25*SUBSMAX 
26*SUBSMAX 
27*SUBSMAX 
28*SUBSMAX 



# caller #3 



# caller #4 



# caller #1 answer 



# caller #2 answer 



# caller #3 answer 



# caller #4 answer 



# 
# 
# 
# 
# 



caller 
caller 
caller 
caller 
call #1 



#1 
#2 
#3 
#4 



netline 
netline 
netline 
netline 



const BARG1ANS = 
answered (vpline) 

const BARG2ANS = 
answered (vpline) 
V ... const FWRD1ACT = 
forwarding active (vpline) 

const FWRD2ACT = 33*SUBSMAX 
forwarding active (vpline) 



barger 
# call #2 barger 
30*SUBSMAX ; # call #1 barger 
31*SUBSMAX ; # call #2 barger 



32*SUBSMAX ; # call #1 



FWRD1SUB = 
subscriber 

FWRD2SUB = 
subscriber 

FWRDIANS = 



const 
forwarding 
const 
forwarding 
const 
forwarding 
const 
forwarding 

const FWRD1NET 
forwarding netline 
const FWRD2NET 
forwarding netline 
const FWRD1CPA 
forwarding call progress active 

const FWRD2CPA = 41*SUBSMAX 
forwarding call progress active 

const MAIL1ACT = 42*SUBSMAX 
mail active (vpline) 

const MAIL2ACT = 43*SUBSMAX 
mail active (vpline) 

const MAIL3ACT = 44*SUBSMAX 



# call #2 

# call #1 



34*SUBSMAX 
active (netline) 

35*SUBSMAX ; # call #2 
active (netline) 



36*SUBSMAX ; # call #1 



answered (vpline) 
FWRD2ANS = 37*SUBSMAX 
answered (vpline) 

38*SUBSMAX 

39*SUBSMAX 

40*SUBSMAX 



# call #2 

# call #1 



# call #2 



# call #1 

# call #2 

# call #1 voice 

# call #2 voice 

# call #3 voice 
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const MAIL4ACT = 
mail active (vpline) 

const MA I LI NET = 
mail netline 

const MAIL2NET = 
mail netline 

const MAIL 3 NET = 
mail netline 

const MAIL4NET = 
mail netline 

const GLOBALS = 
global 



2 oo 

45*SUBSMAX 
46*SUBSMAX 
47*SUBSMAX 
48*SUBSMAX 
49*SUBSMAX 
50*SUBSMAX 



# call #4 voice 

# call #1 voice 

# call #2 voice 

# call #3 voice 

# call #4 voice 

# end of active 



# Values for termination types (last_term) and event 
type 



# No termination 

# Maximum DTMF digits 

# Terminating DTMF digit 

# User stop 

# Dos error 

# Max bytes reached on 

# Hardware failure 

# Multi-tasking function 

# Offhook complete 

# Dialing complete 

# Maximum silence 

# Eof reached on 

# Terminate by drop 

# Disk full 

# Onhook complete 

# AMX80 disconnect 

# Call analysis 

# Loop signal 

# Loop signal drop 

# Rings received 

# Silence off 

# Silence on 

# AMX8x channel 



const 


T_NOTERM 




0 ; 




received 










const 


T_MAXDT 


= 


1 ; 




received 










const 


T_TERMDT 




2 ; 




received 










const 


T_STOP 




3 ; 




const 


T_DOSERR 


— 


4 ; 




const 


T_MAXBYT 




5 ; 




play or rec 










const 


T_HFAIL 




6 ; 




^ const 


T_TIME 




7 ; 




timed out 










const 


T_OFFH 




8 ; 




const 


T_DIAL 




9 ; 




const 


T_SIL 




10 


t 


received 










const 


T_EOF 




11 


7 


playback 










const 


T_LCTERM 




12 


/ 


in loop signal 








const 


T_DFULL 




13 




const 


T_ONH 




14 




const 


T_MDTERM 




17 




termination 










const 


T_CATERM 




18 


/ 


termination 










const 


T_LCREV 




19 




battery reversal 








const 


T_LC 




20 


# 


event 










const 


T_RING 




21 




const 


T SILOFF 




22 




const 


T_SILON 




23 




const 


T AMXCON 




24 
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connect 

const T_AMXDIS = 25 ; 
disconnect 

const T_LCON = 26 ; 
event 

const T_MAXRNG = 27 ; 
on AMX81 conn 

const T_MCTERM = 28 ; 
AMX8 connect 

const T_MDTMF = 29 ; 
, .masked. DTMF- digit- . „ .— v 

const T_IDTIME = 30" f~ 
exceeded 

const T_NSIL = 31 ; 
max non- silence 

const T_BUFFUL = 32 ; 



EMS buffer 


full 






const 


T_BUFEMP 




33 


EMS buffer 


empty 






const 


T_EMSERR 




34 


error 






35 


const 


T_EMSLOW 




const 


T_EMSHI 




36 


const 


T_STPARM 




37 


v const 


T_WINK 




38 


compete 






39 


const 


T_WKRECV 




const 


T_DTMF 




40 


received 








const 


T_TONEON 




41 


const 


T_TONEOFF 




42 


const 


T_BADTERM 




43 


termination condition 






const 


T_MTONEON 




44 


On 








const 


T_MTONEOFF = 


45 


Off 






46 


const 


T_CAERROR 




error 






47 


const 


T_TGERR 




template error 




48 


const 


T_TGCMPLT 




complete 






49 


const 


T_ADSIERR 




failure 






49 


const 


MAXTERM 





termination type 



# Call Analysis termination data 



# AMX8x channel 

# Loop signal on 

# Max rings reached 

# Rings termiated by 

# Terminated by 
"Fainter digit delay 

# Terminated by a 

# Termination from 

# Terminated from 

# Terminated by EMS 

# EMS buffer low 

# EMS buffer high 

# Parameter updated 

# Wink protocol 

# Wink received 

# DTMF digit 

# Tone on detect 

# Tone off detect 

# Invalid 

# Terminated by Tone 

# Terminated by Tone 

# Call progress 

# Tone generation 

# Tone generation 

# ADSI protocol 

# Max (last) 

types /call status 
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const MINUDE =60; # minimum number for 

User Defined Event 

# maximum is 99 

# configuration Parameters: Used by SgetmodeO and 
Ssetmode ( ) 

const MILLISEC = 0; 
const CLOCK = 1; 
const BOARD_NUMBER = 2; 
const FREQ = 3; 
- .const FLASHMIN, = 4; 
const FLASHMAX = 5; 
const WINKMIN = 6; 
const WINKMAX = 7; 
const CONFERENCES = 8; 

SmartBridge96 



#■ 



;"ih;"foi"i;;ing"wer;"NOT here in DATMOD . INC , as the VOS 
f indS^But^hese are the values Parity Software 
suggested using: 

const SBAT_NONE = 0 ; 
v const SBAT_3DB = 1 ; 
^ const SBAT_6DB = 2 ; 

const SBSU_NONE = 0 ; 
const SBSU_SLIGHT = 1 ; 
const SBSU_MODERATE = 2 ; 
const SBSU_HEAVY = 3 ; 



#• 



EasyAccess24 



# EinPEB ( ) , EoutPEB ( ) 

const EAPEB_P AS STHRU = 0; # P«Y*^t Vn ^ 

const EAPEB.ONHOOK = 1; asse rt PEB off hook 

const EAPEB_OFFHOOK =2; # assert 

# Event numbers returned by Egetevt () 

const EAEVT.TNOTERM = 0; # no ~ified ^ 

const E^^-^^T ~y # terminating DTMF digit 

const EAEVT_TTERMDT -2. • J stopped 

const EAEVT_TSTOP =3 J £ fcones time out 

const EAEVT_TTIME = 7 J 9 complete 

const EAEVT_OFFHOOK =8; » 
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ZQ5 



const 
const 
const 
const 
const 
seized 

const 

wink 

const 
const 
const 
const 
const 
const 

(isdn) 

const 

(isdn) 

const 

changed 



EAEVT.DIALDONE = 9; # 

EAEVT_ONHOOK =14; # 

EAEVT_LC = 20; # 

EAEVT_RING = 21; # 

EAEVT_LCON =26; # 



dial complete 
on hook complete 
caller hung up 
inbound ringing 
inbound network now 



EAEVT_FLIPDONE = 38; # flip done: usually a 



EAEVT_RECVWINK = 39; # 
EAEVT_RECVFLASH = 70; 

eaevt_timeout =" 7Y; r 

EAEVT_T1 ALARM =72; # 
EAEVT__T 1N0 ALARM = 73; 
EAEVT_DCHANNELUP = 74; 

EAEVT_DCHANNELDN = 75; 

EAEVT_S IGCHANGE = 76; 



received a wink 

# received a flash 
turner expired 

tl now in alarm 

# tl out of alarm 

# d channl now up 

# d channl now down 

# robbed bits 



# EgetISDN(), EsetlSDNO - service types and allowable 
values 



\ const NSF 



S ERVI C ETYPE = 1; # types of service 



options 

const NSF_SDN_SERVICE = 225; 
const NSF_ 
const NSF. 
const NSF_ 
const NSF_ 
const NSF_ 

const NSF_MULTIQUEST_SERVICE = 240; # AT&T service 



# 

_MEGA800_SERVICE = 226; # AT&T service 
_MEGACOM_SERVICE = 227 ;# AT&T service 
_ACCUNET_SERVICE = 230 ;# AT&T service 
_LD_SERVICE = 231; # AT&T service 

_INTL800_SERVICE = 232 ;# AT&T service 



const NSF__GETCALLERDATA = 2; 

ANI on demand 

const NSF_CPN_PREFERRED = 129 

commonly requested 

const NSF_BN_PREFERRED = 
const NSF_CPN_ONLY = 131 
const NSF_BN_ONLY = 132; 
const NSF_CATSC = 137; 



# get/set ~ type~~of 

# this is most 



130; # special uses 

# special uses 

# special uses 

# special uses 



# get/ set type of 



const NSF_VARIABILLTYPE = 3; 
Variabill service 

const NSF_VB_NEWRATE = 16; # 

const NSF_VB_FLATRATE = 17; 

const NSF_VB_PCHARGE = 18; # add a premium charge 
to call 



set new minute rate 
# set a flat rate 
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const NS F_VB_FREEC ALL = 24; 
caller 

const N S F_WRONG S TAT E = 127; 
variabill 

const NSF_VB_ACCEPT = 162; 
was accepted 



# do not charge 

# no call active for 

# variabill charge 



const ISDN_SERV_STAT = 4; # get/put lines in/out 
of service . 

const ISDN_INSERVICE 
const ISDN OUTSERVICE 



192; # in service 

_ 202; # remove service 

const I SDN_NETMAINT ENANC E = 193 ;# network placed in 

maintenance-.^ ■- 

const ISDN_NETOUTSERVICE = 194; # network 'has 

removed service 

const ISDN_GETSTATUS =5; # get status of isdn 
link: up /down 



TGD24 



# TgetparmO, TsetparmO - parameters and allowable 
values 

v const TG_TONESTYLE = 4; 

\ const TG^MFDTMFSTYLE =1; # style 1 - MF and DTMF 

const TG_DTMFSTYLE = 2; # style 2 - DTMF and 

call progress 

const TG_USERSTYLE = 3; # style 3 - user 

defined tones 
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APPENDIX IX 

SUBROUTINE LISTING USED FOR CONFERENCING BY 
ALL TASKS OTHER THAN THE MAIN PROGRAM 

# add listener line to conference subroutine 
func add_list (scall, aline, logit) 



# check for active call r 
if (scall strneq "") 

# defer hang up jump to onsignal 
sc_sigctl ("("); 

# get . specif ied call's conference number 
conf = glb_get(CALLlCNF+SUBSMAX*scall+subs) ; 

# check for using active specified conference 
if ((conf <= 0) or (conf > CONFMAX) ) 

voslog("TEST: addlis error - call: 
"&scall&" conf: "&conf&" line: "fcaline) ; 

G 1 S 6 

\^ # save beginning net line status 

stats = Sstatus (aline) ; 

# check for inbound netline 

if ( (aline >= NETBGN) and (aline <= 

NETEND) ) 

# add line to specified conference / 

leave alerting on 

code = Saddlis(conf , aline, 
SSAS_OFFHOOK, SSAL_YES) ; 

else . 

# add line to specified conference / 

leave alerting off . 

code = Saddlis (conf , aline, 

SSAS_OFFHOOK, SSAL_NO) ; 

endif 

# check for error return 
if (code <> 0) 

voslog ( "Saddlis ( "&conf &" , "&aline&" ) 

code "&code&" error") ; 

else 

if (logit <> 0) 

voslog ( "Saddlis ( "&conf&" , 

"fcalineSc" ) : "&stats&" "&Sstatus (aline) ) ; 
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10% 



# allow deferred hang ups 
sc_sigctl ( M ) " ) ; 

endif 
endfunc 

# add talker line to conference subroutine 
func add_conf (scall, aline, logit) 

# check for active call 
if (scall strneq nn ) 

# def-er hang up jump to onsignal 

sc_sigctl ( " ( " ) ; 

# get specified call's conference number 
conf = glb_get (CALLlCNF+SUBSMAX*scall+subs) ; 

# check for using active specified conference 
if ((conf <= 0) or (conf > CONFMAX) ) 

voslog( "TEST: addtalk error - call: 
• , &scall& M conf: "&conf&" line: "&aline) ; 
else 

# save beginning net line status 
stats = Sstatus (aline) ; 

# check for inbound netline 

^\ if ((aline >= NETBGN) and (aline <= 

NET END) ) 

# add line to specified conference / 

leave* alerting on 

code = Saddtalk (conf , aline, 
SSAS_OFFHOOK , SSAL_YES ) ; 

else ; 

# add line to specified conference / 

leave alerting off 

code = Saddtalk (conf , aline, 
SSAS_OFFHOOK, SSAL_N0) ; 

endif 

# check for error return 
if (code <> 0) 

voslog ( w Saddtalk ( "&conf&" , "&aline&" ) 
code "&code& K error") ; 

else 

if (logit <> 0) 

voslog ( "Saddtalk ( "&conf & w , 
w &aline&") : "Scstatsfc" "&Sstatus (aline) ) ; 

endif 
endif 
endif 
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# allow deferred hang ups 
sc_sigctl(") -) ; 

endif 
endfunc 

# delete listener line from conference subroutine 
func del_list (scall, dline, cline, logit) 

# check for active call 

if (scall stmeq "") 

# defer hang up jump to onsignal 
sc_sigctl(" (") ; 

# get specified call's conference number 
conf = glb_get (CALLlCNF+SUBSMAX*scall+subs) ; 

# check for using active specified conference 
if ((conf <= 0) or (conf > CONFMAX) ) 

voslog("TEST: dellis error - call: 
"&scall&" conf: "fcconfSc" line: "&dline) ; 
else 

# save beginning netline status 
stats = Sstatus (dline) ; 

# check for inbound netline 

if ( (dline >= NETBGN) and (dline <= 

NETEND) ) ■ j~- 

# remove delete line from specified 

conference / leave alerting on 

code = Sdellis (conf , dline, 

SSAS_OFFHOOK, SSAL_YES) ; 

# remove delete line from specified 

conference /leave alerting off 

code = Sdellis (conf , dline, 

SSAS_OFFHOOK, SSAL_NO) ; 

endif 

# check for error return 

if ((code <> 0) and (code <> -24)) 

voslogC Sdellis ("&conf&" , "&dline& n ) 

code "&code&" error") ; 

else 

if (logit <> 0) 

voslogC Sdellis ("&conf&" , 
"&dline&"): "&stats&" "& (stats = Sstatus (dline) ) ) ; 

else 

stats = Sstatus (dline) ; 
endif 
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voslog( "TEST : dellis error - 
channel "&dline&" w &stats) ; 

endif 
endif 
endif 

# check for valid connect line 
if (cline <> 0) 

# check for inbound netline 

' if ( (dline >= NETBGN) and (dline <= 

NETEND) ) 

# drive delete line receive from 
connect line transmit / leave alerting on 

- ^ : ^r co< je = Scon (dline, -cline, SSAS_PASS, ~ 

SSAL_YES) ; 

else 

# drive delete line receive from 
connect line transmit / leave alerting off 

code = Scon (dline, cline, SSAS_PASS, 

SSAL_NO) ; 

endif 

# check for error return 
if (code <> 0) 

voslog( "Scon( "idlinet" , w &cline& w ) code 

"&code£c" error") ; 

else 

if (logit <> 0) 
v voslog ( " Scon ( " &dline& n , " &cli 

Yie&" ) : "&Sstatus (dline) ) ; 

endif 
endif 
endif 

# allow deferred hang ups 
sc_sigctl ( M ) " ) ; / 

endif 
endfunc 

# delete talker line from conference subroutine 
func del_conf (scall, dline, cline, logit) 

# check for active call 
if (scall strneq " " ) 

# defer hang up jump to onsignal 
sc_sigctl ( M ( " ) ; 

# get specified call's conference number 
conf = glb_get (CALLlCNF+SUBSMAX*scall+subs ) ; 

# check for using active specified conference 
if ((conf <= 0) or (conf > CONFMAX) ) 
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voslog ( "TEST: deltalk error - call: 
"&scall&" conf : "tconffc" line: "fcdline) ; 
else 

# save beginning netline status 
stats = Sstatus (dline) ; 

# check for inbound netline 

if ( (dline >= NETBGN) and (dline <= 

NETEND) ) 

. . # remove delete line from specified 
conference / leave alerting on 

code = Sdel talk (conf , dline, 
SSAS_OFFHOOK, SSAL_YES) ; 

else 

# remove delete line from specified 
conference / leave alerting off 

code = Sdel talk (conf , dline, 
SSAS_OFFHOOK, SSAL_N0) ; 

endif 

# check for error return 

if ((code <> 0) and (code <> -24)) 

voslog ( " Sdel talk ( " &conf & " , " &dline& " ) 
code "&code&" error") ; 

else 

V if (logit <> 0) 

voslog ( "Sdel talk ("fcconf & " , 
"fcdlinefc"): "&stats&" "&(stats = Sstatus (dline) ) ) ; 

else 

stats = Sstatus (dline) ; 
endif 

if ((code = substr (stats , 4, 2)) eq 

conf) 

voslog ( "TEST: deltalk error - 
channel "&dline&" "&stats) ; 

endif 
endif 
endi f 

# check for valid connect line 
if (cline <> 0) 

# check for inbound netline 

if ( (dline >= NETBGN) and (dline <= 

NETEND) ) 

# drive delete line receive from 
connect line transmit / leave alerting on 

code = Scon (dline, cline, SSAS_PASS, 

SSAL_YES) ; 

else 

# drive delete line receive from 
ronnort- line transmit / leave alerting off 
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endif 

# check for error return 
if (code <> 0) 

voslog ( "Scon( "tdlineSc" , "&cline&" ) code 

"&code&" error") ; 

else 

if (logit <> 0) 

voslog( M Scon( M &dline&" , "&cli 
ne&" ) : "&Sstatus (dline) ) ; 

endif 
endif 
endif 

# allow deferred hang ups 
sc_sigctl ( " ) H ) ; 

endif 
endfunc 

# release unused conference subroutine 
func rel_conf (scall) 

# check for active call 
if (scall strneq " M ) 

# defer hang up jump to onsignal 
sc_sigctl ( " ( ■ ) ; 

# get specified call's conference number 
conf = glb_get (CALLlCNF+SUBSMAX*scall+subs) ; 



# check for using active specified conference 
if ((conf > 0) and (conf <= CONFMAX) ) 

# check if conference still in use 

if (((scall >= CALLMAX) ox> 
(glb_get (CALLlACT+SUBSMAX*scall+subs) eq 0)) 

and ((scall >= BARGMAX) or 
(glb_get (BARGlSUB+SUBSMAX*scall+subs) eq 0)) 

and ((scall >= FWRDMAX) or 
(glb_get (FWRD1SUB+ SUBSMAX* scall + subs) eq 0)) 

and ( (scall >= FWRDMAX) or 
(glb_get (FWRD1ACT+ SUBSMAX* seal 1+ subs ) eq 0)) 

and ( (scall >= MAILMAX) or 
(glb_get (MAILlACT+SUBSMAX*scall+subs) eq 0)) 

and (((scall >= BARGMAX) or 
(glb_get (CALLlCNF+SUBSMAX*modulo2 (scall) +subs) <> conf)) 

or ( ( (scall >= CALLMAX) or 
(glb_get (CALL1ACT+ SUBSMAX *modulo2 (scall) +subs) eq 0)) 

and ((scall >= BARGMAX) or 
(glb_get (BARGlSUB+SUBSMAX*modulo2 (scall) +subs) eq 0)) 

and ( (scall >= FWRDMAX) or 
(glb_get (FWRD1SUB+ SUBSMAX *modulo2 (scall) +subs) eq 0)) 
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and ( (scall >= FWRDMAX) or 
(glb_get (FWRDlACT+SUBSMAX*modulo2 (scall) +subs) eq 0)) 

and ( (scall >= MAILMAX) or 
(glb_get (MAILlACT+SUBSMAX*modulo2 (scall) +subs) eq 0) ) ) ) ) 

# check to see that conference is 

really not in use 

for (code = NETBGN; code <= NETEND; 

code++) 

if (substr ( (stats = 

Sstatus (code) ) , 4~, 2) eq conf) — • ----'^ 

voslog ( "TEST: software 
mistaken about conf being inactive - channel :" &code& " 
-fcstats) ; 

goto log_actxve ; 
endif 
endfor 

for (code = ALTBGN; code <= ALTEND; 

code++) 

if (substr ( (stats = 

Sstatus (code) ) , 4, 2) eq conf) 

voslog ( "TEST: software 
mistaken about conf being inactive - channel :" &code&" 
"Sestats) ; 

goto log_active ; 
A endif 

endfor 

for (code = GDIDBGN ; code <= PAGEEND; 

code++) 

if (substr ( (stats = 

Sstatus(code) ) , 4, 2) eq conf) 

voslog ( "TEST: software 
mistaken about conf being inactive - channel : "&code& - 
"&stats) ; 

goto log_active ; 
endif 
endfor 

# request conference deallocation 
goto dealloc ; 

else 

# check to see that conference is 



really in use 



code++) 



for (code = NETBGN; code <= NETEND; 



if (substr ( (stats = 

Sstatus (code) ) , 4. 2) eq conf) 

goto rel_exit ; 

endif 
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code++) 

if (substr ( (stats = 
Sstatus (code) ) , 4, 2) eq conf) 

goto rel_exit ; 
endif 
endfor 

for (code = GDIDBGN; code <= PAGEEND; 

code++) 

if (substr ( (stats = 
Sstatus (code) ) , 4, 2) eq conf) 

goto rel_exit ; 
endif 

. — _ endfor - -.-^ v ,, . ... 

vos log ( "TEST: software mistaken about 
conf being active - conf : "&conf &" call : "fcscall) ; 
dealloc: 

# request conference deallocation 
msg_put (mainpid, "E"&conf) ; 

if ((code = msg_get (10) ) strneq "E- 

OK " ). 

vos log ( "ERROR: code "&code& w when 
deallocating conference "&conf) ; 

else 

voslog ( "Deallocating conference 

"&conf) ; 

# set specified call's conference 

inactive 

glb_set (CALLlCNF+SUBSMAX*sca 
11+subs, ; 

endif 
log_active: 

# log other conferences still active 
for (code = NETBGN ; code <= NETEND; 

code++) 

if (substr ( (stats = 
Sstatus (code) ) , 4, 2) <> 0) 

voslog ( "CONF - netline: 
"&code&" Sstatus: "&stats) ; 

endif 
endfor 

for (code = ALTBGN; code <= ALTEND; 

code++) 

if (substr ( (stats = 
Sstatus (code) ) , 4, 2) <> 0) 

voslog ("CONF - altline: 
M &code& M Sstatus: "fcstats) ; 

endif 
endfor 

for (code = GDIDBGN; code <= PAGEEND; 

code++) 
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Sstatus(code)) / 4/ 2) ^substr ( (stats = 

" &C ° de& " status: » & stats) 7° Sl0 ^ "CONF - vpl ine: 

endif 

endfor 
endif 
endif 

rel_exit : 

endif ' ' ' 

endfunc 
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APPENDIX X 



This £«• ^CPB progr- to create 

* It . is used by tn 

«CB.P^ fUe - e set £or each telephone Xme 

t .heseP— S " ers can be chan 9 ea 

f"3U VOS U staged. sc _ setCPB _ W ora ana 

the syst f i^ctlons 1 



«£SSKu»» function. 

This me ^es ae £ auxt vaxues ^ ^ aiis 

* on the effect ^ _ e (xl0 „ 

atpl-dlV =5 # 
d ^tite = 200 * 

staeiy - " 

£°aly - 10 * 

hedge - J- 

cnosil = 650 « 
(xlOms) # 
loltola = 13 t 
loltolb - ^ 

10 2tolb - ™ 



t of the s 

Silence k ut *. no answer* sig ^lvsis 
K aft°ef aiaUing before analy 

» — £ « r roP y = ( 

^ a P to connect. si 9 naX 

Delay loop drop to 

No silence continuous s ig nal t> 
, , 1st low interval 
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hilbmax = 90 # 
nsbusy =0 # 
logltch = 15 # 
higltch = 19 # 
lolrmax = 90 # 
lo2rmin = 255 # 



= 5 



# 



intflg 
intfltr = 10 # 
spdeb = 10 . # 



hisiz = 90 



# 



alowmax = 700 # 
bl rowmax = 5 30 # 
nbrbeg =1 # 
hilceil = 78 # 
lolceil = 58 # 
lowerfrq = 900 
upper frq = 1000 
timefrq = 5 - # 
reject frq = 20 
maxansr = 1000 
ansrdgl = 65535 
pvdmxper = 0 
pvdszwnd = 0 
pvddly = ' 0 
mxtimefrq = 0 
lower2frq = 0 
uppfer2frq = 0 
time2frq = 0 
mxtime2frq = 0 
lower 3 frq = 0 
upper 3 frq = 0 
time3frq = 0 
mxtime3f rq = 0 



Max time high for busy (xlOms) 
Nr additional states for busy 
Silence deglitch duration (xlOms) 
Noise deglitch duration (xlOms) 
Max short low double-ring (xlOms) 
Min long low double-ring (xlOms) 
SIT, PVD options 

Min Intercept tone duration (xlOms) 
Trailing edge silence debounce (xlOms) 
Compare value for prev high (xlOms) 
If prev hi > hisiz use this (xlOms) 
If prev hi < hisiz use this^CxlOms) 
Nr rings before analysis start 
Max 2nd high for retrain (xlOms) 
Max 1st low for retrain (xlOms) 

# Lower accepted freq (Hz) 

# Upper accepted freq (Hz) 
Min Op Intercept signal (xlOms) 

# Allowed % bad Op Int signal 

# Max duration of hello (xlOms) 

# Silence deglitch for answer 

# (Obsolete) 

# (Obsolete) 

# (Obsolete) 

# Max time for 1st SIT tone (xlOms) 

# Lower bound freq. 2nd SIT tone (Hz) 

# Upper bound freq- 2nd SIT tone 

# Min time 2nd SIT tone (xlOms) 

# Max time 2nd SIT tone (xlOms) 

# Lower bound freq. 3rd SIT tone 

# Upper bound freq. 3rd SIT Jtone 

# Min time 3rd SIT tone (xlOms) 

# Max time 3rd SIT tone (xlOms) 



(Hz) 



(Hz) 
(Hz) 



= 49 



SS Start 
Int 
install as 

Address = DC00 
Millisec = 14 
duration (140 msec) 
Wink detect 
Flash detect 
Clock = 2 

clock 

EVENTMODE = Global 
single queue 

CONFERENCES = 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6 



.•Indicates board type 
; Interrupt number to 

; Location of board 
; Minimum signaling 

; allow wink detection 
; allow flash detection 
;Use PEB 2 (P2) as master 

;all events through 
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SS End ;End of SmartSwitch 

config data 



# 



DCB.DEF 



# This file defines the Dialogic Control Block. 

# It is used by the MKDCB program to create the 
DCB.PAR file. 



These parameters are set once and for all cannot 
be changed once the system is started. 



# 
# 

# This file gives default values to all 

parameters . 



# 
# 



See Dialogic documentation for more details 
on the effect of the parameters. 



flashchr = & 
hook 

flashtm = 50 
pausetm = 200 
(ikoms) 

digrate = 6053 
sch_tm = 20 
p_bk = 6 
p_mk = 4 
p_idd = 100 
(xlOms) 
t_idd = 5 
(xlOms) 
oh_dly = 1 
r_on = 3 
r_off = 5 
r_ird =80 
(xlOOms) 
s_bnc = 4 
(xlOms) 
ttdata =10 
minpdon = 2 
(xlOms) 
minpdoff = 2 
(xlOms) 
minipd = 25 
(xlOms) 

minlcoff = 65535 



# 



Char in dial string to flash- 



# Flash-hook duration (xlOms) 

# Dialling pause duration 

# Digitization rate (Hz) 

# Max D40DRV time slice (x50ms) 

# Pulse break interval (xlOms) 

# Pulse make interval (xlOms) 

# Pulse dial inter-digit delay 

# Tone dial inter-digit delay 

# Off -hook delay (xlOms) 

# Min ring on interval (xlOms) 

# Min ring off interval (xlOms) 

# Ring count reset delay 

# Silence debounce interval 

# DTMF tone duration (xlOms) 
Min on interval for pulse 

# Min off interval for pulse 

# Min interdigit time for pulse 

# Min loop off duration (xlOms) 

# (Default is 65535=-!. which 
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redge = 1 
environment 
maxpdof f = 50 
(xlOms) 



2/? 

# (dcbrfu3) Set to 1 for PEB 

# Max pulse make duration 



db_bases = 0 . 
db_recs = 0 
records 
db reclen - 0 
dblfields = 0 
db_bdes = 0 
db_rdes = 0 
msg_size = 32 
msg_num = 64 
glb_size = 16 
glb_num = 350 
buf_num = 8 
f il_num = 20 
db_ixnum = 0 
db_ixkey = 
db_ixcache 
index file 
db^btrieve 
ser^buff = 0 
ser_ports = 0 
. . 4) 

fil_buf = 0 
9999=EMS) 
sc_words = 0 
sc_playphm phrase 
sc_nshgup = 0 
l=Yes 0=No 
arg_size = 3 
fil_locks = 0 



= 0 



= 0 



log_size = 150000 # 



# Max number of active databases 

# Max number of active database 

Max database record length 
Max f ields in- one database- 
Max active database descriptors 
Max active record descriptors 
Max length of message string 
Max number of pending messages 
Max length of global variable 
Number of global variables 
Number of lk buffers 
Max open DOS files 
Max number of active index files 
Max length of index key 

# Number of lk cache buffers per 

# Btrieve support? 1=YES 0=NO 
COM port buffer size (bytes) 
Number of COM ports to support (0 

fil_copy() buffer size (Kb., or 

# Max words in sc__playph or 

# Continuous tone treated as hang-up 

# Max chars in spawna/chain argument 

# Max active calls to fil_lock 
Max size of V0S7.L0G 



# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 



# 
# 

# 



1 N MAIN 

5 N GETDID+CALLIN+CALLOUT+BARGER 
4 N FORWARD 

2 N VMAIL 
2 N PAGE 
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What is claimed is: 
5 1. A communications system comprising: 

(a) a central processing unit; 

(b) a ^communications^ interface for connection to a 
10 telephone system and to a signaling system, the 

signaling system communicating with a plurality of 
subscribers ; 

(c) a communications switch connected with said 
15 communications interface and with said central 

processing unit, said central processing unit operating 
under program control to detect a call from a caller 
directed to one of said subscribers via said 
c&nmunication interface, to initiate a plurality of 

20 essentially simultaneous communications seeking said one 
of said subscribers in response to said call, at least 
one of said communications including a signal to said 
one of said subscribers via said signaling system and at 
least another one of said communications comprising a 

25 telephone call placed via said communication interface 
and, in response to said one of said subscribers 
confirming receipt via said communication interface of 
at least one of said communications, placing said caller 
and said at least one of said subscribers into direct 

30 communication. 



2. The communications system of claim 1 
signaling system is a paging system and 
subscriber carry pagers which respond 



whei~ein said 
wherein said 
to signals 
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5 



!0 



25 



30 



broadcast by said paging system. 

3. The communications system of claim 1 wherein said 
signaling system comprises a computer controlled voice 
generator and a transducer for reproducing sounds 
generated by said voice generator, said central 
processing unit controlling said voice generator, in 
combination with .said transducer ,.J:o generate audible 
signals corresponding to said communications. 

4 . The communications system of claim 1 wherein said 
one of said subscribers confirms receipt via said 
communication interface of at least one of said 
communications by answering said telephone call. 

5. A communications system comprising: a central 
processing unit and a communications switch connected 
w$?*h the public switched telephone network and with said 
central processing unit, said central processing unit 
operating under program control to detect a call from a 
caller directed to a subscriber via said public switched 
telephone network and to initiate a plurality of 
essentially simultaneous communication inquiries via 
said public switched telephone network seeking said 
subscriber via different communication paths in said 
public switched telephone network in response to said 

call- 

6. The communications system of claim 5 wherein said 
plurality of essentially simultaneous communication 
inquiries comprise a plurality telephone calls initiated 
to a plurality of different telephone numbers. 

t>v_ . Am ™,n^at-inns svstem of claim 6 wherein at 
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least one of said plurality of telephone calls continues 
to ring irrespective of another one of said plurality of 
telephone calls being answered. 

5 8. A method of placing a caller into telecommunication 
with a subscriber, the method comprising the steps of: 

(i) detecting receipt of a call from said caller 
directed to said subscriberT : * : - 

10 

(ii) in response to receipt of said call, initiating a 
page to said subscriber and at the same time initiating 
a forward leg call to a stored telephone address; 

15 (iii) placing said forward leg call in at least half 

duplex telecommunication with said caller, if answered; 
and 

\ 

(iv) detecting receipt of a call from said subscriber, 
20 and, in response thereto, placing said subscriber in at 
least half duplex telecommunication with said caller* 

9 . _. The method of placing a caller into . ^ 
telecommunication with a subscriber as claimed in claim 

25 8, and while in telecommunication with the first 

mentioned caller, detecting receipt of a new call from a 
new caller directed to said subscriber, sending a signal 
to said subscriber indicating that said new call has 
been detected and responsive to a command entered by 

30 said subscriber, toggling said subscriber between the 
first mentioned caller and the new caller. 



10. The method of placing a caller 
telecommunication with a subscriber 



into 

as claimed 



in 



claim 
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8, and when said caller, said subscriber and a party on 
said forward leg are in telecommunication with each 
other, sensing a command entered by said subscriber to 
disconnect said party and disconnecting said party in 
response thereto. 

11. The method of placing a caller into 
telecommunication with a subscriber^ as claimed^in claim 
8, and when said caller, said subscriber and a party on 
said forward leg are all in telecommunication with each 
other, allowing said party and said caller to remain in 
telecommunication with each other in spite of said 
subscriber disconnecting. 

12 . The method of placing a caller into 

telecommunication with a subscriber as claimed in claim 
8, and wherein at least two of (i) said caller, (ii) 
s^id subscriber and (iii) a party on said forward leg 
are in telecommunication with each other, sensing a 
command entered by at least one of said two tq add a 
further forward leg to said telecommunication. 

13. The method of placing a caller into 

telecommunication with a subscriber as claimed in claim 
12, wherein the sensing step senses a command entered by 
any party in the telecommunication to add a further 
forward leg to said telecommunication. 

14. The method of placing a caller into 

telecommunication with a subscriber as claimed in claim 
12, wherein said further forward leg is a connection 
made to a voice mail system. 



c tKo mot-hort of Dlacing a caller into 
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telecommunication with a subscriber as claimed in claim 
12, wherein said further forward leg is an outbound 
telephone call made to a third party. 

5 16. The method of placing a caller into 

telecommunication with a subscriber as claimed in claim 
8, and wherein at least two of (i) said caller, (ii) 
said subscriber and (iii) a party on said forward leg 
are in teleconmiunication v7±Trh each other, sensing a 
10 command entered by at least one of said two to record a 
voice memo and recording said voice memo in response to 
said command. 

17. The method of placing a caller into 

15 telecommunication with a subscriber as claimed in claim 
8, wherein said subscriber is initially placed in half 
duplex communication with said caller and thereafter, in 
response to a command entered by said subscriber, the 
cbihmunication between the subscriber and the caller is 

20 changed to full duplex communication. 

18. The method of placing a caller into 

telecommunication with a subscriber as claimed in claim 
8, wherein a party answering a forward leg call may hang 
25 up before the subscriber is placed into communication 
with the caller without disconnecting the caller. 

19. The method of placing a caller into 

telecommunication with a subscriber as claimed in claim 
30 18, wherein the caller is connected to a voice mail 

system in response to a command entered by the caller. 

20. The method of placing a caller into 

telecommunication with a subscriber as claimed in claim 
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18, wherein the raiiov • 

ne Ca -Ller is connected to a un ip a 



20 



5 



5 21. The method of pl acing a caIler ^ 

telecommunication with a subscriber as ,o.- . '. 
19 or 20. wherein when the caller s ^ " ^ 

-il the subscriber ma y lis^o IVZlll^ " ^ 
cpnmunications with voice mail a , - •■ fc 

• — briber cannot be h^ sa^al^ ^ 

22. The method of p i acing a caller 
telecommunication with a subscriber as r-i.- * ■ 
8. wherein the caller is connect Tu T^"^ 
system in response to a command entered b y the caUer. 

23. The method of claim 8. further including the stens 
of sensing a message from a tel»„h„ P 
that a u telephone system advising 
that a telephone connected therewith has been powered up 
and » response thereto changing said telephone^ access 

24. The method of claim 8. further including the steps 

that a ns ;:i e : h messa9e from a teiephon * ^ si j 

and in response thereto telephoning said subscriber at 
predetermined telephone address to deliver a 
Predetermined courtesy message advising them of that 

25 The method of claim 8. wherein said stored 

telephone address is selected fr-^m ~ ^ 

cea £rom said database in 
accordance with said schedule. 
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^-it-iole forward leg 
v. a «f rlaim 8, wherein multiple 

iii" :: — 

addresses simultaneously. 

— .wuXfciple pages are. ... — r ,-- 

locations. 

* -i.4m 27 wherein one of said 
0 28 . The method of " a " system and wherein 

different locations is a ^ wherea t an 

another of said locations is 
audible page is delivered. 

„„ in to telecommunication 
15 29 . A -thod rfP^J^, conpris ing the steps of: 
with a subscriber, tne m 

\ • r of a call from said caller 

( i) detecting receipt of a cai 
directed to said subscriber; 

to receipt of said call, initiating 
in ~. s P tored telephone address; 

a forward leg can 

»\A call with a voice mail 
(i ii) connecting said call w 

25 facility; 

« a Person answering said forward leg 
(iv) connecting * ^ eleco ^ unicat ion with said 
ca ll in half auplex tele ^ ^ ^ vQlce 

caller while said caller 
mail facility; and 



of a command from said person 
(v) detecting r.c«P^o ^ person in 

and. in response thereto P ^ 
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5 



20 



30. The method of placing a caller into 
telec_i Cat ion with a subscriber as claimed in claim 
29, further including the steps of: 



(vi) 



initiating a page to a subscriber; 



^ (Vii) Sensin ^ receipt. .of a call from "said— 
SUbSCriber ln res P° nse *> said page, and placing 
said subscriber in half duplex telecommunication 
with said caller; and 

(viii) detecting receipt of a command from said 
subscriber and. in response thereto, placing said 
subscriber in full duplex telecommunication with 
said caller. 

3\ The method of placing a caller into 

telecommunication with a subscriber as claimed in claims 

or 30. and when said subscriber, said caller, said 
person on said forward leg are in telecommunication with 
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